home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 April: Mac OS SDK / Dev.CD Apr 97 SDK1.toast / Development Kits (Disc 1) / QuickTime / QuickTime™ 2.5 / Interfaces for Programmers / PInterfaces / QuickTimeComponents.p < prev    next >
Encoding:
Text File  |  1997-02-26  |  93.6 KB  |  2,415 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        QuickTimeComponents.p
  3.  
  4.      Contains:    QuickTime interfaces
  5.  
  6.      Version:    Technology:    
  7.                  Release:    QuickTime 2.5 interfaces to use with ETO #20
  8.  
  9.      Copyright:    © 1984-1996 by Apple Computer, Inc.  All rights reserved.
  10.  
  11.      Bugs?:        If you find a problem with this file, send the file and version
  12.                  information (from above) and the problem description to:
  13.  
  14.                      Internet:    apple.bugs@applelink.apple.com
  15.                      AppleLink:    APPLE.BUGS
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT QuickTimeComponents;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __QUICKTIMECOMPONENTS__}
  28. {$SETC __QUICKTIMECOMPONENTS__ := 1}
  29.  
  30. {$I+}
  31. {$SETC QuickTimeComponentsIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __COMPONENTS__}
  35. {$I Components.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __IMAGECOMPRESSION__}
  38. {$I ImageCompression.p}
  39. {$ENDC}
  40. {$IFC UNDEFINED __MOVIES__}
  41. {$I Movies.p}
  42. {$ENDC}
  43. {$IFC UNDEFINED __QUICKDRAW__}
  44. {$I Quickdraw.p}
  45. {$ENDC}
  46. {$IFC UNDEFINED __VIDEO__}
  47. {$I Video.p}
  48. {$ENDC}
  49. {$IFC UNDEFINED __MEMORY__}
  50. {$I Memory.p}
  51. {$ENDC}
  52. {$IFC UNDEFINED __SOUND__}
  53. {$I Sound.p}
  54. {$ENDC}
  55. {$IFC UNDEFINED __QUICKTIMEMUSIC__}
  56. {$I QuickTimeMusic.p}
  57. {$ENDC}
  58.  
  59. {$PUSH}
  60. {$ALIGN MAC68K}
  61. {$LibExport+}
  62.  
  63.  
  64. CONST
  65.     clockComponentType            = 'clok';
  66.     systemTickClock                = 'tick';                        {  subtype: 60ths since boot         }
  67.     systemSecondClock            = 'seco';                        {  subtype: seconds since 1904         }
  68.     systemMillisecondClock        = 'mill';                        {  subtype: 1000ths since boot         }
  69.     systemMicrosecondClock        = 'micr';                        {  subtype: 1000000ths since boot     }
  70.  
  71.     kClockRateIsLinear            = 1;
  72.     kClockImplementsCallBacks    = 2;
  73.  
  74. { * These are Clock procedures * }
  75. FUNCTION ClockGetTime(aClock: ComponentInstance; VAR out: TimeRecord): ComponentResult;
  76.     {$IFC NOT GENERATINGCFM}
  77.     INLINE $2F3C, $0004, $0001, $7000, $A82A;
  78.     {$ENDC}
  79. FUNCTION ClockNewCallBack(aClock: ComponentInstance; tb: TimeBase; callBackType: INTEGER): QTCallBack;
  80.     {$IFC NOT GENERATINGCFM}
  81.     INLINE $2F3C, $0006, $0002, $7000, $A82A;
  82.     {$ENDC}
  83. FUNCTION ClockDisposeCallBack(aClock: ComponentInstance; cb: QTCallBack): ComponentResult;
  84.     {$IFC NOT GENERATINGCFM}
  85.     INLINE $2F3C, $0004, $0003, $7000, $A82A;
  86.     {$ENDC}
  87. FUNCTION ClockCallMeWhen(aClock: ComponentInstance; cb: QTCallBack; param1: LONGINT; param2: LONGINT; param3: LONGINT): ComponentResult;
  88.     {$IFC NOT GENERATINGCFM}
  89.     INLINE $2F3C, $0010, $0004, $7000, $A82A;
  90.     {$ENDC}
  91. FUNCTION ClockCancelCallBack(aClock: ComponentInstance; cb: QTCallBack): ComponentResult;
  92.     {$IFC NOT GENERATINGCFM}
  93.     INLINE $2F3C, $0004, $0005, $7000, $A82A;
  94.     {$ENDC}
  95. FUNCTION ClockRateChanged(aClock: ComponentInstance; cb: QTCallBack): ComponentResult;
  96.     {$IFC NOT GENERATINGCFM}
  97.     INLINE $2F3C, $0004, $0006, $7000, $A82A;
  98.     {$ENDC}
  99. FUNCTION ClockTimeChanged(aClock: ComponentInstance; cb: QTCallBack): ComponentResult;
  100.     {$IFC NOT GENERATINGCFM}
  101.     INLINE $2F3C, $0004, $0007, $7000, $A82A;
  102.     {$ENDC}
  103. FUNCTION ClockSetTimeBase(aClock: ComponentInstance; tb: TimeBase): ComponentResult;
  104.     {$IFC NOT GENERATINGCFM}
  105.     INLINE $2F3C, $0004, $0008, $7000, $A82A;
  106.     {$ENDC}
  107. FUNCTION ClockStartStopChanged(aClock: ComponentInstance; cb: QTCallBack; startChanged: BOOLEAN; stopChanged: BOOLEAN): ComponentResult;
  108.     {$IFC NOT GENERATINGCFM}
  109.     INLINE $2F3C, $0008, $0009, $7000, $A82A;
  110.     {$ENDC}
  111. FUNCTION ClockGetRate(aClock: ComponentInstance; VAR rate: Fixed): ComponentResult;
  112.     {$IFC NOT GENERATINGCFM}
  113.     INLINE $2F3C, $0004, $000A, $7000, $A82A;
  114.     {$ENDC}
  115.  
  116. CONST
  117.     StandardCompressionType        = 'scdi';
  118.     StandardCompressionSubType    = 'imag';
  119.  
  120.  
  121. TYPE
  122.     SCModalFilterProcPtr = ProcPtr;  { FUNCTION SCModalFilter(theDialog: DialogPtr; VAR theEvent: EventRecord; VAR itemHit: INTEGER; refcon: LONGINT): BOOLEAN; }
  123.  
  124.     SCModalHookProcPtr = ProcPtr;  { FUNCTION SCModalHook(theDialog: DialogPtr; itemHit: INTEGER; params: UNIV Ptr; refcon: LONGINT): INTEGER; }
  125.  
  126.     SCModalFilterUPP = UniversalProcPtr;
  127.     SCModalHookUPP = UniversalProcPtr;
  128. {     Preference flags. }
  129.  
  130. CONST
  131.     scListEveryCodec            = $00000002;
  132.     scAllowZeroFrameRate        = $00000004;
  133.     scAllowZeroKeyFrameRate        = $00000008;
  134.     scShowBestDepth                = $00000010;
  135.     scUseMovableModal            = $00000020;
  136.  
  137. {     Possible test flags for setting test image. }
  138.     scPreferCropping            = $01;
  139.     scPreferScaling                = $02;
  140.     scPreferScalingAndCropping    = $03;
  141.  
  142. {     Dimensions of the image preview box. }
  143.     scTestImageWidth            = 80;
  144.     scTestImageHeight            = 80;
  145.  
  146. {     Possible items returned by hookProc. }
  147.     scOKItem                    = 1;
  148.     scCancelItem                = 2;
  149.     scCustomItem                = 3;
  150.  
  151. {     Result returned when user cancelled. }
  152.     scUserCancelled                = 1;
  153.  
  154. {     Get/SetInfo structures. }
  155.  
  156. TYPE
  157.     SCSpatialSettingsPtr = ^SCSpatialSettings;
  158.     SCSpatialSettings = RECORD
  159.         codecType:                CodecType;
  160.         codec:                    CodecComponent;
  161.         depth:                    INTEGER;
  162.         spatialQuality:            CodecQ;
  163.     END;
  164.  
  165.     SCTemporalSettingsPtr = ^SCTemporalSettings;
  166.     SCTemporalSettings = RECORD
  167.         temporalQuality:        CodecQ;
  168.         frameRate:                Fixed;
  169.         keyFrameRate:            LONGINT;
  170.     END;
  171.  
  172.     SCDataRateSettingsPtr = ^SCDataRateSettings;
  173.     SCDataRateSettings = RECORD
  174.         dataRate:                LONGINT;
  175.         frameDuration:            LONGINT;
  176.         minSpatialQuality:        CodecQ;
  177.         minTemporalQuality:        CodecQ;
  178.     END;
  179.  
  180.     SCExtendedProcsPtr = ^SCExtendedProcs;
  181.     SCExtendedProcs = RECORD
  182.         filterProc:                SCModalFilterUPP;
  183.         hookProc:                SCModalHookUPP;
  184.         refcon:                    LONGINT;
  185.         customName:                Str31;
  186.     END;
  187.  
  188. {     Get/SetInfo selectors }
  189.  
  190. CONST
  191.     scSpatialSettingsType        = 'sptl';                        {  pointer to SCSpatialSettings struct }
  192.     scTemporalSettingsType        = 'tprl';                        {  pointer to SCTemporalSettings struct }
  193.     scDataRateSettingsType        = 'drat';                        {  pointer to SCDataRateSettings struct }
  194.     scColorTableType            = 'clut';                        {  pointer to CTabHandle }
  195.     scProgressProcType            = 'prog';                        {  pointer to ProgressRecord struct }
  196.     scExtendedProcsType            = 'xprc';                        {  pointer to SCExtendedProcs struct }
  197.     scPreferenceFlagsType        = 'pref';                        {  pointer to long }
  198.     scSettingsStateType            = 'ssta';                        {  pointer to Handle }
  199.     scSequenceIDType            = 'sequ';                        {  pointer to ImageSequence }
  200.     scWindowPositionType        = 'wndw';                        {  pointer to Point }
  201.     scCodecFlagsType            = 'cflg';                        {  pointer to CodecFlags }
  202.     scCodecSettingsType            = 'cdec';                        {  pointer to Handle }
  203.     scForceKeyValueType            = 'ksim';                        {  pointer to long }
  204.  
  205. {     scTypeNotFoundErr returned by Get/SetInfo when type cannot be found. }
  206.  
  207. TYPE
  208.     SCParamsPtr = ^SCParams;
  209.     SCParams = RECORD
  210.         flags:                    LONGINT;
  211.         theCodecType:            CodecType;
  212.         theCodec:                CodecComponent;
  213.         spatialQuality:            CodecQ;
  214.         temporalQuality:        CodecQ;
  215.         depth:                    INTEGER;
  216.         frameRate:                Fixed;
  217.         keyFrameRate:            LONGINT;
  218.         reserved1:                LONGINT;
  219.         reserved2:                LONGINT;
  220.     END;
  221.  
  222.  
  223. CONST
  224.     scGetCompression            = 1;
  225.     scShowMotionSettings        = $00000001;
  226.     scSettingsChangedItem        = -1;
  227.  
  228.     scCompressFlagIgnoreIdenticalFrames = 1;
  229.  
  230. { * These are Progress procedures * }
  231. FUNCTION SCGetCompressionExtended(ci: ComponentInstance; VAR params: SCParams; where: Point; filterProc: SCModalFilterUPP; hookProc: SCModalHookUPP; refcon: LONGINT; customName: StringPtr): ComponentResult;
  232.     {$IFC NOT GENERATINGCFM}
  233.     INLINE $2F3C, $0018, $0001, $7000, $A82A;
  234.     {$ENDC}
  235. FUNCTION SCPositionRect(ci: ComponentInstance; VAR rp: Rect; VAR where: Point): ComponentResult;
  236.     {$IFC NOT GENERATINGCFM}
  237.     INLINE $2F3C, $0008, $0002, $7000, $A82A;
  238.     {$ENDC}
  239. FUNCTION SCPositionDialog(ci: ComponentInstance; id: INTEGER; VAR where: Point): ComponentResult;
  240.     {$IFC NOT GENERATINGCFM}
  241.     INLINE $2F3C, $0006, $0003, $7000, $A82A;
  242.     {$ENDC}
  243. FUNCTION SCSetTestImagePictHandle(ci: ComponentInstance; testPict: PicHandle; VAR testRect: Rect; testFlags: INTEGER): ComponentResult;
  244.     {$IFC NOT GENERATINGCFM}
  245.     INLINE $2F3C, $000A, $0004, $7000, $A82A;
  246.     {$ENDC}
  247. FUNCTION SCSetTestImagePictFile(ci: ComponentInstance; testFileRef: INTEGER; VAR testRect: Rect; testFlags: INTEGER): ComponentResult;
  248.     {$IFC NOT GENERATINGCFM}
  249.     INLINE $2F3C, $0008, $0005, $7000, $A82A;
  250.     {$ENDC}
  251. FUNCTION SCSetTestImagePixMap(ci: ComponentInstance; testPixMap: PixMapHandle; VAR testRect: Rect; testFlags: INTEGER): ComponentResult;
  252.     {$IFC NOT GENERATINGCFM}
  253.     INLINE $2F3C, $000A, $0006, $7000, $A82A;
  254.     {$ENDC}
  255. FUNCTION SCGetBestDeviceRect(ci: ComponentInstance; VAR r: Rect): ComponentResult;
  256.     {$IFC NOT GENERATINGCFM}
  257.     INLINE $2F3C, $0004, $0007, $7000, $A82A;
  258.     {$ENDC}
  259. FUNCTION SCRequestImageSettings(ci: ComponentInstance): ComponentResult;
  260.     {$IFC NOT GENERATINGCFM}
  261.     INLINE $2F3C, $0000, $000A, $7000, $A82A;
  262.     {$ENDC}
  263. FUNCTION SCCompressImage(ci: ComponentInstance; src: PixMapHandle; {CONST}VAR srcRect: Rect; VAR desc: ImageDescriptionHandle; VAR data: Handle): ComponentResult;
  264.     {$IFC NOT GENERATINGCFM}
  265.     INLINE $2F3C, $0010, $000B, $7000, $A82A;
  266.     {$ENDC}
  267. FUNCTION SCCompressPicture(ci: ComponentInstance; srcPicture: PicHandle; dstPicture: PicHandle): ComponentResult;
  268.     {$IFC NOT GENERATINGCFM}
  269.     INLINE $2F3C, $0008, $000C, $7000, $A82A;
  270.     {$ENDC}
  271. FUNCTION SCCompressPictureFile(ci: ComponentInstance; srcRefNum: INTEGER; dstRefNum: INTEGER): ComponentResult;
  272.     {$IFC NOT GENERATINGCFM}
  273.     INLINE $2F3C, $0004, $000D, $7000, $A82A;
  274.     {$ENDC}
  275. FUNCTION SCRequestSequenceSettings(ci: ComponentInstance): ComponentResult;
  276.     {$IFC NOT GENERATINGCFM}
  277.     INLINE $2F3C, $0000, $000E, $7000, $A82A;
  278.     {$ENDC}
  279. FUNCTION SCCompressSequenceBegin(ci: ComponentInstance; src: PixMapHandle; {CONST}VAR srcRect: Rect; VAR desc: ImageDescriptionHandle): ComponentResult;
  280.     {$IFC NOT GENERATINGCFM}
  281.     INLINE $2F3C, $000C, $000F, $7000, $A82A;
  282.     {$ENDC}
  283. FUNCTION SCCompressSequenceFrame(ci: ComponentInstance; src: PixMapHandle; {CONST}VAR srcRect: Rect; VAR data: Handle; VAR dataSize: LONGINT; VAR notSyncFlag: INTEGER): ComponentResult;
  284.     {$IFC NOT GENERATINGCFM}
  285.     INLINE $2F3C, $0014, $0010, $7000, $A82A;
  286.     {$ENDC}
  287. FUNCTION SCCompressSequenceEnd(ci: ComponentInstance): ComponentResult;
  288.     {$IFC NOT GENERATINGCFM}
  289.     INLINE $2F3C, $0000, $0011, $7000, $A82A;
  290.     {$ENDC}
  291. FUNCTION SCDefaultPictHandleSettings(ci: ComponentInstance; srcPicture: PicHandle; motion: INTEGER): ComponentResult;
  292.     {$IFC NOT GENERATINGCFM}
  293.     INLINE $2F3C, $0006, $0012, $7000, $A82A;
  294.     {$ENDC}
  295. FUNCTION SCDefaultPictFileSettings(ci: ComponentInstance; srcRef: INTEGER; motion: INTEGER): ComponentResult;
  296.     {$IFC NOT GENERATINGCFM}
  297.     INLINE $2F3C, $0004, $0013, $7000, $A82A;
  298.     {$ENDC}
  299. FUNCTION SCDefaultPixMapSettings(ci: ComponentInstance; src: PixMapHandle; motion: INTEGER): ComponentResult;
  300.     {$IFC NOT GENERATINGCFM}
  301.     INLINE $2F3C, $0006, $0014, $7000, $A82A;
  302.     {$ENDC}
  303. FUNCTION SCGetInfo(ci: ComponentInstance; infoType: OSType; info: UNIV Ptr): ComponentResult;
  304.     {$IFC NOT GENERATINGCFM}
  305.     INLINE $2F3C, $0008, $0015, $7000, $A82A;
  306.     {$ENDC}
  307. FUNCTION SCSetInfo(ci: ComponentInstance; infoType: OSType; info: UNIV Ptr): ComponentResult;
  308.     {$IFC NOT GENERATINGCFM}
  309.     INLINE $2F3C, $0008, $0016, $7000, $A82A;
  310.     {$ENDC}
  311. FUNCTION SCNewGWorld(ci: ComponentInstance; VAR gwp: GWorldPtr; VAR rp: Rect; flags: GWorldFlags): ComponentResult;
  312.     {$IFC NOT GENERATINGCFM}
  313.     INLINE $2F3C, $000C, $0017, $7000, $A82A;
  314.     {$ENDC}
  315. FUNCTION SCSetCompressFlags(ci: ComponentInstance; flags: LONGINT): ComponentResult;
  316.     {$IFC NOT GENERATINGCFM}
  317.     INLINE $2F3C, $0004, $0018, $7000, $A82A;
  318.     {$ENDC}
  319. FUNCTION SCGetCompressFlags(ci: ComponentInstance; VAR flags: LONGINT): ComponentResult;
  320.     {$IFC NOT GENERATINGCFM}
  321.     INLINE $2F3C, $0004, $0019, $7000, $A82A;
  322.     {$ENDC}
  323.  
  324. CONST
  325.     TweenComponentType            = 'twen';
  326.  
  327.  
  328. TYPE
  329.     TweenerComponent                    = ComponentInstance;
  330.     TweenRecordPtr = ^TweenRecord;
  331.  
  332.     TweenerDataProcPtr = ProcPtr;  { FUNCTION TweenerData(VAR tr: TweenRecord; tweenData: UNIV Ptr; tweenDataSize: LONGINT; dataDescriptionSeed: LONGINT; dataDescription: Handle; asyncCompletionProc: ICMCompletionProcRecordPtr; transferProc: ProcPtr; refCon: UNIV Ptr): ComponentResult; }
  333.  
  334.     TweenerDataUPP = UniversalProcPtr;
  335.     TweenRecord = RECORD
  336.         version:                LONGINT;
  337.         container:                QTAtomContainer;
  338.         tweenAtom:                QTAtom;
  339.         dataAtom:                QTAtom;
  340.         percent:                Fixed;
  341.         dataProc:                TweenerDataUPP;
  342.         private1:                Ptr;
  343.         private2:                Ptr;
  344.     END;
  345.  
  346. FUNCTION TweenerInitialize(tc: TweenerComponent; container: QTAtomContainer; tweenAtom: QTAtom; dataAtom: QTAtom): ComponentResult;
  347.     {$IFC NOT GENERATINGCFM}
  348.     INLINE $2F3C, $000C, $0001, $7000, $A82A;
  349.     {$ENDC}
  350. FUNCTION TweenerDoTween(tc: TweenerComponent; VAR tr: TweenRecord): ComponentResult;
  351.     {$IFC NOT GENERATINGCFM}
  352.     INLINE $2F3C, $0004, $0002, $7000, $A82A;
  353.     {$ENDC}
  354. FUNCTION TweenerReset(tc: TweenerComponent): ComponentResult;
  355.     {$IFC NOT GENERATINGCFM}
  356.     INLINE $2F3C, $0000, $0003, $7000, $A82A;
  357.     {$ENDC}
  358.  
  359. CONST
  360.     TCSourceRefNameType            = 'name';
  361.  
  362.     tcDropFrame                    = $01;
  363.     tc24HourMax                    = $02;
  364.     tcNegTimesOK                = $04;
  365.     tcCounter                    = $08;
  366.  
  367.  
  368. TYPE
  369.     TimeCodeDefPtr = ^TimeCodeDef;
  370.     TimeCodeDef = RECORD
  371.         flags:                    LONGINT;                                {  drop-frame, etc. }
  372.         fTimeScale:                TimeScale;                                {  time scale of frameDuration (eg. 2997) }
  373.         frameDuration:            TimeValue;                                {  duration of each frame (eg. 100) }
  374.         numFrames:                SInt8;                                    {  frames/sec for timecode (eg. 30) OR frames/tick for counter mode }
  375.         padding:                SInt8;                                    {  unused padding byte }
  376.     END;
  377.  
  378.  
  379. CONST
  380.     tctNegFlag                    = $80;                            {  negative bit is in minutes }
  381.  
  382.  
  383. TYPE
  384.     TimeCodeTimePtr = ^TimeCodeTime;
  385.     TimeCodeTime = RECORD
  386.         hours:                    SInt8;
  387.         minutes:                SInt8;
  388.         seconds:                SInt8;
  389.         frames:                    SInt8;
  390.     END;
  391.  
  392.     TimeCodeCounterPtr = ^TimeCodeCounter;
  393.     TimeCodeCounter = RECORD
  394.         counter:                LONGINT;
  395.     END;
  396.  
  397.     TimeCodeRecordPtr = ^TimeCodeRecord;
  398.     TimeCodeRecord = RECORD
  399.         CASE INTEGER OF
  400.         0: (
  401.             t:                    TimeCodeTime;
  402.             );
  403.         1: (
  404.             c:                    TimeCodeCounter;
  405.             );
  406.     END;
  407.  
  408.     TimeCodeDescriptionPtr = ^TimeCodeDescription;
  409.     TimeCodeDescription = RECORD
  410.         descSize:                LONGINT;                                {  standard sample description header }
  411.         dataFormat:                LONGINT;
  412.         resvd1:                    LONGINT;
  413.         resvd2:                    INTEGER;
  414.         dataRefIndex:            INTEGER;
  415.         flags:                    LONGINT;                                {  timecode specific stuff }
  416.         timeCodeDef:            TimeCodeDef;
  417.         srcRef:                    ARRAY [0..0] OF LONGINT;
  418.     END;
  419.  
  420.     TimeCodeDescriptionHandle            = ^TimeCodeDescriptionPtr;
  421.  
  422. CONST
  423.     tcdfShowTimeCode            = $01;
  424.  
  425.  
  426. TYPE
  427.     TCTextOptionsPtr = ^TCTextOptions;
  428.     TCTextOptions = RECORD
  429.         txFont:                    INTEGER;
  430.         txFace:                    INTEGER;
  431.         txSize:                    INTEGER;
  432.         foreColor:                RGBColor;
  433.         backColor:                RGBColor;
  434.     END;
  435.  
  436. FUNCTION TCGetCurrentTimeCode(mh: MediaHandler; VAR frameNum: LONGINT; VAR tcdef: TimeCodeDef; VAR tcrec: TimeCodeRecord; VAR srcRefH: UserData): HandlerError;
  437.     {$IFC NOT GENERATINGCFM}
  438.     INLINE $2F3C, $0010, $0101, $7000, $A82A;
  439.     {$ENDC}
  440. FUNCTION TCGetTimeCodeAtTime(mh: MediaHandler; mediaTime: TimeValue; VAR frameNum: LONGINT; VAR tcdef: TimeCodeDef; VAR tcdata: TimeCodeRecord; VAR srcRefH: UserData): HandlerError;
  441.     {$IFC NOT GENERATINGCFM}
  442.     INLINE $2F3C, $0014, $0102, $7000, $A82A;
  443.     {$ENDC}
  444. FUNCTION TCTimeCodeToString(mh: MediaHandler; VAR tcdef: TimeCodeDef; VAR tcrec: TimeCodeRecord; tcStr: StringPtr): HandlerError;
  445.     {$IFC NOT GENERATINGCFM}
  446.     INLINE $2F3C, $000C, $0103, $7000, $A82A;
  447.     {$ENDC}
  448. FUNCTION TCTimeCodeToFrameNumber(mh: MediaHandler; VAR tcdef: TimeCodeDef; VAR tcrec: TimeCodeRecord; VAR frameNumber: LONGINT): HandlerError;
  449.     {$IFC NOT GENERATINGCFM}
  450.     INLINE $2F3C, $000C, $0104, $7000, $A82A;
  451.     {$ENDC}
  452. FUNCTION TCFrameNumberToTimeCode(mh: MediaHandler; frameNumber: LONGINT; VAR tcdef: TimeCodeDef; VAR tcrec: TimeCodeRecord): HandlerError;
  453.     {$IFC NOT GENERATINGCFM}
  454.     INLINE $2F3C, $000C, $0105, $7000, $A82A;
  455.     {$ENDC}
  456. FUNCTION TCGetSourceRef(mh: MediaHandler; tcdH: TimeCodeDescriptionHandle; VAR srefH: UserData): HandlerError;
  457.     {$IFC NOT GENERATINGCFM}
  458.     INLINE $2F3C, $0008, $0106, $7000, $A82A;
  459.     {$ENDC}
  460. FUNCTION TCSetSourceRef(mh: MediaHandler; tcdH: TimeCodeDescriptionHandle; srefH: UserData): HandlerError;
  461.     {$IFC NOT GENERATINGCFM}
  462.     INLINE $2F3C, $0008, $0107, $7000, $A82A;
  463.     {$ENDC}
  464. FUNCTION TCSetTimeCodeFlags(mh: MediaHandler; flags: LONGINT; flagsMask: LONGINT): HandlerError;
  465.     {$IFC NOT GENERATINGCFM}
  466.     INLINE $2F3C, $0008, $0108, $7000, $A82A;
  467.     {$ENDC}
  468. FUNCTION TCGetTimeCodeFlags(mh: MediaHandler; VAR flags: LONGINT): HandlerError;
  469.     {$IFC NOT GENERATINGCFM}
  470.     INLINE $2F3C, $0004, $0109, $7000, $A82A;
  471.     {$ENDC}
  472. FUNCTION TCSetDisplayOptions(mh: MediaHandler; textOptions: TCTextOptionsPtr): HandlerError;
  473.     {$IFC NOT GENERATINGCFM}
  474.     INLINE $2F3C, $0004, $010A, $7000, $A82A;
  475.     {$ENDC}
  476. FUNCTION TCGetDisplayOptions(mh: MediaHandler; textOptions: TCTextOptionsPtr): HandlerError;
  477.     {$IFC NOT GENERATINGCFM}
  478.     INLINE $2F3C, $0004, $010B, $7000, $A82A;
  479.     {$ENDC}
  480.  
  481. TYPE
  482.     MovieImportComponent                = ComponentInstance;
  483.     MovieExportComponent                = ComponentInstance;
  484.  
  485. CONST
  486.     MovieImportType                = 'eat ';
  487.     MovieExportType                = 'spit';
  488.  
  489.     canMovieImportHandles        = $01;
  490.     canMovieImportFiles            = $02;
  491.     hasMovieImportUserInterface    = $04;
  492.     canMovieExportHandles        = $08;
  493.     canMovieExportFiles            = $10;
  494.     hasMovieExportUserInterface    = $20;
  495.     dontAutoFileMovieImport        = $40;
  496.     canMovieExportAuxDataHandle    = $80;
  497.     canMovieImportValidateHandles = $0100;
  498.     canMovieImportValidateFile    = $0200;
  499.     dontRegisterWithEasyOpen    = $0400;
  500.     canMovieImportInPlace        = $0800;
  501.     movieImportSubTypeIsFileExtension = $1000;
  502.  
  503.     movieImportCreateTrack        = 1;
  504.     movieImportInParallel        = 2;
  505.     movieImportMustUseTrack        = 4;
  506.  
  507.     movieImportResultUsedMultipleTracks = 8;
  508.  
  509.     kMovieExportTextOnly        = 0;
  510.     kMovieExportAbsoluteTime    = 1;
  511.     kMovieExportRelativeTime    = 2;
  512.  
  513.     kMIDIImportSilenceBefore    = $01;
  514.     kMIDIImportSilenceAfter        = $02;
  515.     kMIDIImport20Playable        = $04;
  516.     kMIDIImportWantLyrics        = $08;
  517.  
  518. FUNCTION MovieImportHandle(ci: MovieImportComponent; dataH: Handle; theMovie: Movie; targetTrack: Track; VAR usedTrack: Track; atTime: TimeValue; VAR addedDuration: TimeValue; inFlags: LONGINT; VAR outFlags: LONGINT): ComponentResult;
  519.     {$IFC NOT GENERATINGCFM}
  520.     INLINE $2F3C, $0020, $0001, $7000, $A82A;
  521.     {$ENDC}
  522. FUNCTION MovieImportFile(ci: MovieImportComponent; {CONST}VAR theFile: FSSpec; theMovie: Movie; targetTrack: Track; VAR usedTrack: Track; atTime: TimeValue; VAR addedDuration: TimeValue; inFlags: LONGINT; VAR outFlags: LONGINT): ComponentResult;
  523.     {$IFC NOT GENERATINGCFM}
  524.     INLINE $2F3C, $0020, $0002, $7000, $A82A;
  525.     {$ENDC}
  526. FUNCTION MovieImportSetSampleDuration(ci: MovieImportComponent; duration: TimeValue; scale: TimeScale): ComponentResult;
  527.     {$IFC NOT GENERATINGCFM}
  528.     INLINE $2F3C, $0008, $0003, $7000, $A82A;
  529.     {$ENDC}
  530. FUNCTION MovieImportSetSampleDescription(ci: MovieImportComponent; desc: SampleDescriptionHandle; mediaType: OSType): ComponentResult;
  531.     {$IFC NOT GENERATINGCFM}
  532.     INLINE $2F3C, $0008, $0004, $7000, $A82A;
  533.     {$ENDC}
  534. FUNCTION MovieImportSetMediaFile(ci: MovieImportComponent; alias: AliasHandle): ComponentResult;
  535.     {$IFC NOT GENERATINGCFM}
  536.     INLINE $2F3C, $0004, $0005, $7000, $A82A;
  537.     {$ENDC}
  538. FUNCTION MovieImportSetDimensions(ci: MovieImportComponent; width: Fixed; height: Fixed): ComponentResult;
  539.     {$IFC NOT GENERATINGCFM}
  540.     INLINE $2F3C, $0008, $0006, $7000, $A82A;
  541.     {$ENDC}
  542. FUNCTION MovieImportSetChunkSize(ci: MovieImportComponent; chunkSize: LONGINT): ComponentResult;
  543.     {$IFC NOT GENERATINGCFM}
  544.     INLINE $2F3C, $0004, $0007, $7000, $A82A;
  545.     {$ENDC}
  546. FUNCTION MovieImportSetProgressProc(ci: MovieImportComponent; proc: MovieProgressUPP; refcon: LONGINT): ComponentResult;
  547.     {$IFC NOT GENERATINGCFM}
  548.     INLINE $2F3C, $0008, $0008, $7000, $A82A;
  549.     {$ENDC}
  550. FUNCTION MovieImportSetAuxiliaryData(ci: MovieImportComponent; data: Handle; handleType: OSType): ComponentResult;
  551.     {$IFC NOT GENERATINGCFM}
  552.     INLINE $2F3C, $0008, $0009, $7000, $A82A;
  553.     {$ENDC}
  554. FUNCTION MovieImportSetFromScrap(ci: MovieImportComponent; fromScrap: BOOLEAN): ComponentResult;
  555.     {$IFC NOT GENERATINGCFM}
  556.     INLINE $2F3C, $0002, $000A, $7000, $A82A;
  557.     {$ENDC}
  558. FUNCTION MovieImportDoUserDialog(ci: MovieImportComponent; {CONST}VAR theFile: FSSpec; theData: Handle; VAR canceled: BOOLEAN): ComponentResult;
  559.     {$IFC NOT GENERATINGCFM}
  560.     INLINE $2F3C, $000C, $000B, $7000, $A82A;
  561.     {$ENDC}
  562. FUNCTION MovieImportSetDuration(ci: MovieImportComponent; duration: TimeValue): ComponentResult;
  563.     {$IFC NOT GENERATINGCFM}
  564.     INLINE $2F3C, $0004, $000C, $7000, $A82A;
  565.     {$ENDC}
  566. FUNCTION MovieImportGetAuxiliaryDataType(ci: MovieImportComponent; VAR auxType: OSType): ComponentResult;
  567.     {$IFC NOT GENERATINGCFM}
  568.     INLINE $2F3C, $0004, $000D, $7000, $A82A;
  569.     {$ENDC}
  570. FUNCTION MovieImportValidate(ci: MovieImportComponent; {CONST}VAR theFile: FSSpec; theData: Handle; VAR valid: BOOLEAN): ComponentResult;
  571.     {$IFC NOT GENERATINGCFM}
  572.     INLINE $2F3C, $000C, $000E, $7000, $A82A;
  573.     {$ENDC}
  574. FUNCTION MovieImportGetFileType(ci: MovieImportComponent; VAR fileType: OSType): ComponentResult;
  575.     {$IFC NOT GENERATINGCFM}
  576.     INLINE $2F3C, $0004, $000F, $7000, $A82A;
  577.     {$ENDC}
  578. FUNCTION MovieImportDataRef(ci: MovieImportComponent; dataRef: Handle; dataRefType: OSType; theMovie: Movie; targetTrack: Track; VAR usedTrack: Track; atTime: TimeValue; VAR addedDuration: TimeValue; inFlags: LONGINT; VAR outFlags: LONGINT): ComponentResult;
  579.     {$IFC NOT GENERATINGCFM}
  580.     INLINE $2F3C, $0024, $0010, $7000, $A82A;
  581.     {$ENDC}
  582. FUNCTION MovieImportGetSampleDescription(ci: MovieImportComponent; VAR desc: SampleDescriptionHandle; VAR mediaType: OSType): ComponentResult;
  583.     {$IFC NOT GENERATINGCFM}
  584.     INLINE $2F3C, $0008, $0011, $7000, $A82A;
  585.     {$ENDC}
  586. FUNCTION MovieExportToHandle(ci: MovieExportComponent; dataH: Handle; theMovie: Movie; onlyThisTrack: Track; startTime: TimeValue; duration: TimeValue): ComponentResult;
  587.     {$IFC NOT GENERATINGCFM}
  588.     INLINE $2F3C, $0014, $0080, $7000, $A82A;
  589.     {$ENDC}
  590. FUNCTION MovieExportToFile(ci: MovieExportComponent; {CONST}VAR theFile: FSSpec; theMovie: Movie; onlyThisTrack: Track; startTime: TimeValue; duration: TimeValue): ComponentResult;
  591.     {$IFC NOT GENERATINGCFM}
  592.     INLINE $2F3C, $0014, $0081, $7000, $A82A;
  593.     {$ENDC}
  594. FUNCTION MovieExportGetAuxiliaryData(ci: MovieExportComponent; dataH: Handle; VAR handleType: OSType): ComponentResult;
  595.     {$IFC NOT GENERATINGCFM}
  596.     INLINE $2F3C, $0008, $0083, $7000, $A82A;
  597.     {$ENDC}
  598. FUNCTION MovieExportSetProgressProc(ci: MovieExportComponent; proc: MovieProgressUPP; refcon: LONGINT): ComponentResult;
  599.     {$IFC NOT GENERATINGCFM}
  600.     INLINE $2F3C, $0008, $0084, $7000, $A82A;
  601.     {$ENDC}
  602. FUNCTION MovieExportSetSampleDescription(ci: MovieExportComponent; desc: SampleDescriptionHandle; mediaType: OSType): ComponentResult;
  603.     {$IFC NOT GENERATINGCFM}
  604.     INLINE $2F3C, $0008, $0085, $7000, $A82A;
  605.     {$ENDC}
  606. FUNCTION MovieExportDoUserDialog(ci: MovieExportComponent; theMovie: Movie; onlyThisTrack: Track; startTime: TimeValue; duration: TimeValue; VAR canceled: BOOLEAN): ComponentResult;
  607.     {$IFC NOT GENERATINGCFM}
  608.     INLINE $2F3C, $0014, $0086, $7000, $A82A;
  609.     {$ENDC}
  610. FUNCTION MovieExportGetCreatorType(ci: MovieExportComponent; VAR creator: OSType): ComponentResult;
  611.     {$IFC NOT GENERATINGCFM}
  612.     INLINE $2F3C, $0004, $0087, $7000, $A82A;
  613.     {$ENDC}
  614. {  Text Export Display Info data structure }
  615.  
  616. TYPE
  617.     TextDisplayDataPtr = ^TextDisplayData;
  618.     TextDisplayData = RECORD
  619.         displayFlags:            LONGINT;
  620.         textJustification:        LONGINT;
  621.         bgColor:                RGBColor;
  622.         textBox:                Rect;
  623.         beginHilite:            INTEGER;
  624.         endHilite:                INTEGER;
  625.         hiliteColor:            RGBColor;
  626.         doHiliteColor:            BOOLEAN;
  627.         filler:                    SInt8;
  628.         scrollDelayDur:            TimeValue;
  629.         dropShadowOffset:        Point;
  630.         dropShadowTransparency:    INTEGER;
  631.     END;
  632.  
  633.     TextExportComponent                    = ComponentInstance;
  634. FUNCTION TextExportGetDisplayData(ci: TextExportComponent; VAR textDisplay: TextDisplayData): ComponentResult;
  635.     {$IFC NOT GENERATINGCFM}
  636.     INLINE $2F3C, $0004, $0100, $7000, $A82A;
  637.     {$ENDC}
  638. FUNCTION TextExportGetTimeFraction(ci: TextExportComponent; VAR movieTimeFraction: LONGINT): ComponentResult;
  639.     {$IFC NOT GENERATINGCFM}
  640.     INLINE $2F3C, $0004, $0101, $7000, $A82A;
  641.     {$ENDC}
  642. FUNCTION TextExportSetTimeFraction(ci: TextExportComponent; movieTimeFraction: LONGINT): ComponentResult;
  643.     {$IFC NOT GENERATINGCFM}
  644.     INLINE $2F3C, $0004, $0102, $7000, $A82A;
  645.     {$ENDC}
  646. FUNCTION TextExportGetSettings(ci: TextExportComponent; VAR setting: LONGINT): ComponentResult;
  647.     {$IFC NOT GENERATINGCFM}
  648.     INLINE $2F3C, $0004, $0103, $7000, $A82A;
  649.     {$ENDC}
  650. FUNCTION TextExportSetSettings(ci: TextExportComponent; setting: LONGINT): ComponentResult;
  651.     {$IFC NOT GENERATINGCFM}
  652.     INLINE $2F3C, $0004, $0104, $7000, $A82A;
  653.     {$ENDC}
  654. FUNCTION MIDIImportGetSettings(ci: TextExportComponent; VAR setting: LONGINT): ComponentResult;
  655.     {$IFC NOT GENERATINGCFM}
  656.     INLINE $2F3C, $0004, $0100, $7000, $A82A;
  657.     {$ENDC}
  658. FUNCTION MIDIImportSetSettings(ci: TextExportComponent; setting: LONGINT): ComponentResult;
  659.     {$IFC NOT GENERATINGCFM}
  660.     INLINE $2F3C, $0004, $0101, $7000, $A82A;
  661.     {$ENDC}
  662. {
  663. **************
  664.  
  665.     File Preview Components
  666.  
  667. **************
  668. }
  669.  
  670. TYPE
  671.     pnotComponent                        = ComponentInstance;
  672.  
  673. CONST
  674.     pnotComponentWantsEvents    = 1;
  675.     pnotComponentNeedsNoCache    = 2;
  676.  
  677.     ShowFilePreviewComponentType = 'pnot';
  678.     CreateFilePreviewComponentType = 'pmak';
  679.  
  680. FUNCTION PreviewShowData(p: pnotComponent; dataType: OSType; data: Handle; {CONST}VAR inHere: Rect): ComponentResult;
  681.     {$IFC NOT GENERATINGCFM}
  682.     INLINE $2F3C, $000C, $0001, $7000, $A82A;
  683.     {$ENDC}
  684. FUNCTION PreviewMakePreview(p: pnotComponent; VAR previewType: OSType; VAR previewResult: Handle; {CONST}VAR sourceFile: FSSpec; progress: ICMProgressProcRecordPtr): ComponentResult;
  685.     {$IFC NOT GENERATINGCFM}
  686.     INLINE $2F3C, $0010, $0002, $7000, $A82A;
  687.     {$ENDC}
  688. FUNCTION PreviewMakePreviewReference(p: pnotComponent; VAR previewType: OSType; VAR resID: INTEGER; {CONST}VAR sourceFile: FSSpec): ComponentResult;
  689.     {$IFC NOT GENERATINGCFM}
  690.     INLINE $2F3C, $000C, $0003, $7000, $A82A;
  691.     {$ENDC}
  692. FUNCTION PreviewEvent(p: pnotComponent; VAR e: EventRecord; VAR handledEvent: BOOLEAN): ComponentResult;
  693.     {$IFC NOT GENERATINGCFM}
  694.     INLINE $2F3C, $0008, $0004, $7000, $A82A;
  695.     {$ENDC}
  696.  
  697. TYPE
  698.     DataHCompletionProcPtr = ProcPtr;  { PROCEDURE DataHCompletion(request: Ptr; refcon: LONGINT; err: OSErr); }
  699.  
  700.     DataHCompletionUPP = UniversalProcPtr;
  701.  
  702. CONST
  703.     kDataHCanRead                = $00000001;
  704.     kDataHSpecialRead            = $00000002;
  705.     kDataHSpecialReadFile        = $00000004;
  706.     kDataHCanWrite                = $00000008;
  707.     kDataHSpecialWrite            = $10;
  708.     kDataHSpecialWriteFile        = $20;
  709.     kDataHCanStreamingWrite        = $40;
  710.     kDataHMustCheckDataRef        = $80;
  711.  
  712.  
  713. TYPE
  714.     DataHVolumeListRecordPtr = ^DataHVolumeListRecord;
  715.     DataHVolumeListRecord = RECORD
  716.         vRefNum:                INTEGER;
  717.         flags:                    LONGINT;
  718.     END;
  719.  
  720.     DataHVolumeListPtr                    = ^DataHVolumeListRecord;
  721.     DataHVolumeList                        = ^DataHVolumeListPtr;
  722.  
  723. CONST
  724.     kDataHExtendedSchedule        = 'xtnd';
  725.  
  726.  
  727. TYPE
  728.     DataHScheduleRecordPtr = ^DataHScheduleRecord;
  729.     DataHScheduleRecord = RECORD
  730.         timeNeededBy:            TimeRecord;
  731.         extendedID:                LONGINT;                                {  always is kDataHExtendedSchedule }
  732.         extendedVers:            LONGINT;                                {  always set to 0 }
  733.         priority:                Fixed;                                    {  100.0 or more means must have. lower numbers… }
  734.     END;
  735.  
  736.     DataHSchedulePtr                    = ^DataHScheduleRecord;
  737. FUNCTION DataHGetData(dh: DataHandler; h: Handle; hOffset: LONGINT; offset: LONGINT; size: LONGINT): ComponentResult;
  738.     {$IFC NOT GENERATINGCFM}
  739.     INLINE $2F3C, $0010, $0002, $7000, $A82A;
  740.     {$ENDC}
  741. FUNCTION DataHPutData(dh: DataHandler; h: Handle; hOffset: LONGINT; VAR offset: LONGINT; size: LONGINT): ComponentResult;
  742.     {$IFC NOT GENERATINGCFM}
  743.     INLINE $2F3C, $0010, $0003, $7000, $A82A;
  744.     {$ENDC}
  745. FUNCTION DataHFlushData(dh: DataHandler): ComponentResult;
  746.     {$IFC NOT GENERATINGCFM}
  747.     INLINE $2F3C, $0000, $0004, $7000, $A82A;
  748.     {$ENDC}
  749. FUNCTION DataHOpenForWrite(dh: DataHandler): ComponentResult;
  750.     {$IFC NOT GENERATINGCFM}
  751.     INLINE $2F3C, $0000, $0005, $7000, $A82A;
  752.     {$ENDC}
  753. FUNCTION DataHCloseForWrite(dh: DataHandler): ComponentResult;
  754.     {$IFC NOT GENERATINGCFM}
  755.     INLINE $2F3C, $0000, $0006, $7000, $A82A;
  756.     {$ENDC}
  757. FUNCTION DataHOpenForRead(dh: DataHandler): ComponentResult;
  758.     {$IFC NOT GENERATINGCFM}
  759.     INLINE $2F3C, $0000, $0008, $7000, $A82A;
  760.     {$ENDC}
  761. FUNCTION DataHCloseForRead(dh: DataHandler): ComponentResult;
  762.     {$IFC NOT GENERATINGCFM}
  763.     INLINE $2F3C, $0000, $0009, $7000, $A82A;
  764.     {$ENDC}
  765. FUNCTION DataHSetDataRef(dh: DataHandler; dataRef: Handle): ComponentResult;
  766.     {$IFC NOT GENERATINGCFM}
  767.     INLINE $2F3C, $0004, $000A, $7000, $A82A;
  768.     {$ENDC}
  769. FUNCTION DataHGetDataRef(dh: DataHandler; VAR dataRef: Handle): ComponentResult;
  770.     {$IFC NOT GENERATINGCFM}
  771.     INLINE $2F3C, $0004, $000B, $7000, $A82A;
  772.     {$ENDC}
  773. FUNCTION DataHCompareDataRef(dh: DataHandler; dataRef: Handle; VAR equal: BOOLEAN): ComponentResult;
  774.     {$IFC NOT GENERATINGCFM}
  775.     INLINE $2F3C, $0008, $000C, $7000, $A82A;
  776.     {$ENDC}
  777. FUNCTION DataHTask(dh: DataHandler): ComponentResult;
  778.     {$IFC NOT GENERATINGCFM}
  779.     INLINE $2F3C, $0000, $000D, $7000, $A82A;
  780.     {$ENDC}
  781. FUNCTION DataHScheduleData(dh: DataHandler; PlaceToPutDataPtr: Ptr; FileOffset: LONGINT; DataSize: LONGINT; RefCon: LONGINT; scheduleRec: DataHSchedulePtr; CompletionRtn: DataHCompletionUPP): ComponentResult;
  782.     {$IFC NOT GENERATINGCFM}
  783.     INLINE $2F3C, $0018, $000E, $7000, $A82A;
  784.     {$ENDC}
  785. FUNCTION DataHFinishData(dh: DataHandler; PlaceToPutDataPtr: Ptr; Cancel: BOOLEAN): ComponentResult;
  786.     {$IFC NOT GENERATINGCFM}
  787.     INLINE $2F3C, $0006, $000F, $7000, $A82A;
  788.     {$ENDC}
  789. FUNCTION DataHFlushCache(dh: DataHandler): ComponentResult;
  790.     {$IFC NOT GENERATINGCFM}
  791.     INLINE $2F3C, $0000, $0010, $7000, $A82A;
  792.     {$ENDC}
  793. FUNCTION DataHResolveDataRef(dh: DataHandler; theDataRef: Handle; VAR wasChanged: BOOLEAN; userInterfaceAllowed: BOOLEAN): ComponentResult;
  794.     {$IFC NOT GENERATINGCFM}
  795.     INLINE $2F3C, $000A, $0011, $7000, $A82A;
  796.     {$ENDC}
  797. FUNCTION DataHGetFileSize(dh: DataHandler; VAR fileSize: LONGINT): ComponentResult;
  798.     {$IFC NOT GENERATINGCFM}
  799.     INLINE $2F3C, $0004, $0012, $7000, $A82A;
  800.     {$ENDC}
  801. FUNCTION DataHCanUseDataRef(dh: DataHandler; dataRef: Handle; VAR useFlags: LONGINT): ComponentResult;
  802.     {$IFC NOT GENERATINGCFM}
  803.     INLINE $2F3C, $0008, $0013, $7000, $A82A;
  804.     {$ENDC}
  805. FUNCTION DataHGetVolumeList(dh: DataHandler; VAR volumeList: DataHVolumeList): ComponentResult;
  806.     {$IFC NOT GENERATINGCFM}
  807.     INLINE $2F3C, $0004, $0014, $7000, $A82A;
  808.     {$ENDC}
  809. FUNCTION DataHWrite(dh: DataHandler; data: Ptr; offset: LONGINT; size: LONGINT; completion: DataHCompletionUPP; refCon: LONGINT): ComponentResult;
  810.     {$IFC NOT GENERATINGCFM}
  811.     INLINE $2F3C, $0014, $0015, $7000, $A82A;
  812.     {$ENDC}
  813. FUNCTION DataHPreextend(dh: DataHandler; maxToAdd: LONGINT; VAR spaceAdded: LONGINT): ComponentResult;
  814.     {$IFC NOT GENERATINGCFM}
  815.     INLINE $2F3C, $0008, $0016, $7000, $A82A;
  816.     {$ENDC}
  817. FUNCTION DataHSetFileSize(dh: DataHandler; fileSize: LONGINT): ComponentResult;
  818.     {$IFC NOT GENERATINGCFM}
  819.     INLINE $2F3C, $0004, $0017, $7000, $A82A;
  820.     {$ENDC}
  821. FUNCTION DataHGetFreeSpace(dh: DataHandler; VAR freeSize: LONGINT): ComponentResult;
  822.     {$IFC NOT GENERATINGCFM}
  823.     INLINE $2F3C, $0004, $0018, $7000, $A82A;
  824.     {$ENDC}
  825. FUNCTION DataHCreateFile(dh: DataHandler; creator: OSType; deleteExisting: BOOLEAN): ComponentResult;
  826.     {$IFC NOT GENERATINGCFM}
  827.     INLINE $2F3C, $0006, $0019, $7000, $A82A;
  828.     {$ENDC}
  829. FUNCTION DataHGetPreferredBlockSize(dh: DataHandler; VAR blockSize: LONGINT): ComponentResult;
  830.     {$IFC NOT GENERATINGCFM}
  831.     INLINE $2F3C, $0004, $001A, $7000, $A82A;
  832.     {$ENDC}
  833. FUNCTION DataHGetDeviceIndex(dh: DataHandler; VAR deviceIndex: LONGINT): ComponentResult;
  834.     {$IFC NOT GENERATINGCFM}
  835.     INLINE $2F3C, $0004, $001B, $7000, $A82A;
  836.     {$ENDC}
  837. FUNCTION DataHIsStreamingDataHandler(dh: DataHandler; VAR yes: BOOLEAN): ComponentResult;
  838.     {$IFC NOT GENERATINGCFM}
  839.     INLINE $2F3C, $0004, $001C, $7000, $A82A;
  840.     {$ENDC}
  841. FUNCTION DataHGetDataInBuffer(dh: DataHandler; startOffset: LONGINT; VAR size: LONGINT): ComponentResult;
  842.     {$IFC NOT GENERATINGCFM}
  843.     INLINE $2F3C, $0008, $001D, $7000, $A82A;
  844.     {$ENDC}
  845. FUNCTION DataHGetScheduleAheadTime(dh: DataHandler; VAR millisecs: LONGINT): ComponentResult;
  846.     {$IFC NOT GENERATINGCFM}
  847.     INLINE $2F3C, $0004, $001E, $7000, $A82A;
  848.     {$ENDC}
  849. FUNCTION DataHSetCacheSizeLimit(dh: DataHandler; cacheSizeLimit: Size): ComponentResult;
  850.     {$IFC NOT GENERATINGCFM}
  851.     INLINE $2F3C, $0004, $001F, $7000, $A82A;
  852.     {$ENDC}
  853. FUNCTION DataHGetCacheSizeLimit(dh: DataHandler; VAR cacheSizeLimit: Size): ComponentResult;
  854.     {$IFC NOT GENERATINGCFM}
  855.     INLINE $2F3C, $0004, $0020, $7000, $A82A;
  856.     {$ENDC}
  857. FUNCTION DataHGetMovie(dh: DataHandler; VAR theMovie: Movie; VAR id: INTEGER): ComponentResult;
  858.     {$IFC NOT GENERATINGCFM}
  859.     INLINE $2F3C, $0008, $0021, $7000, $A82A;
  860.     {$ENDC}
  861. FUNCTION DataHAddMovie(dh: DataHandler; theMovie: Movie; VAR id: INTEGER): ComponentResult;
  862.     {$IFC NOT GENERATINGCFM}
  863.     INLINE $2F3C, $0008, $0022, $7000, $A82A;
  864.     {$ENDC}
  865. FUNCTION DataHUpdateMovie(dh: DataHandler; theMovie: Movie; id: INTEGER): ComponentResult;
  866.     {$IFC NOT GENERATINGCFM}
  867.     INLINE $2F3C, $0006, $0023, $7000, $A82A;
  868.     {$ENDC}
  869. FUNCTION DataHDoesBuffer(dh: DataHandler; VAR buffersReads: BOOLEAN; VAR buffersWrites: BOOLEAN): ComponentResult;
  870.     {$IFC NOT GENERATINGCFM}
  871.     INLINE $2F3C, $0008, $0024, $7000, $A82A;
  872.     {$ENDC}
  873. FUNCTION DataHGetFileName(dh: DataHandler; VAR str: Str255): ComponentResult;
  874.     {$IFC NOT GENERATINGCFM}
  875.     INLINE $2F3C, $0004, $0025, $7000, $A82A;
  876.     {$ENDC}
  877. FUNCTION DataHPlaybackHints(dh: DataHandler; flags: LONGINT; minFileOffset: LONGINT; maxFileOffset: LONGINT; bytesPerSecond: LONGINT): ComponentResult;
  878.     {$IFC NOT GENERATINGCFM}
  879.     INLINE $2F3C, $0010, $0103, $7000, $A82A;
  880.     {$ENDC}
  881. {  Standard type for video digitizers  }
  882.  
  883. CONST
  884.     videoDigitizerComponentType    = 'vdig';
  885.     vdigInterfaceRev            = 2;
  886.  
  887. {  Input Format Standards  }
  888.     ntscIn                        = 0;                            {  current input format  }
  889.     currentIn                    = 0;                            {  ntsc input format  }
  890.     palIn                        = 1;                            {  pal input format  }
  891.     secamIn                        = 2;                            {  secam input format  }
  892.     ntscReallyIn                = 3;                            {  ntsc input format  }
  893.  
  894. {  Input Formats  }
  895.     compositeIn                    = 0;                            {  input is composite format  }
  896.     sVideoIn                    = 1;                            {  input is sVideo format  }
  897.     rgbComponentIn                = 2;                            {  input is rgb component format  }
  898.     rgbComponentSyncIn            = 3;                            {  input is rgb component format (sync on green?) }
  899.     yuvComponentIn                = 4;                            {  input is yuv component format  }
  900.     yuvComponentSyncIn            = 5;                            {  input is yuv component format (sync on green?)  }
  901.     tvTunerIn                    = 6;
  902.  
  903. {  Video Digitizer PlayThru States  }
  904.     vdPlayThruOff                = 0;
  905.     vdPlayThruOn                = 1;
  906.  
  907. {  Input Color Space Modes  }
  908.     vdDigitizerBW                = 0;                            {  black and white  }
  909.     vdDigitizerRGB                = 1;                            {  rgb color  }
  910.  
  911. {  Phase Lock Loop Modes  }
  912.     vdBroadcastMode                = 0;                            {  Broadcast / Laser Disk video mode  }
  913.     vdVTRMode                    = 1;                            {  VCR / Magnetic media mode  }
  914.  
  915. {  Field Select Options  }
  916.     vdUseAnyField                = 0;                            {  Digitizers choice on field use  }
  917.     vdUseOddField                = 1;                            {  Use odd field for half size vert and smaller  }
  918.     vdUseEvenField                = 2;                            {  Use even field for half size vert and smaller  }
  919.  
  920. {  vdig types  }
  921.     vdTypeBasic                    = 0;                            {  basic, no clipping  }
  922.     vdTypeAlpha                    = 1;                            {  supports clipping with alpha channel  }
  923.     vdTypeMask                    = 2;                            {  supports clipping with mask plane  }
  924.     vdTypeKey                    = 3;                            {  supports clipping with key color(s)  }
  925.  
  926. {  Digitizer Input Capability/Current Flags     }
  927.     digiInDoesNTSC                = $00000001;                    {  digitizer supports NTSC input format  }
  928.     digiInDoesPAL                = $00000002;                    {  digitizer supports PAL input format  }
  929.     digiInDoesSECAM                = $00000004;                    {  digitizer supports SECAM input format  }
  930.     digiInDoesGenLock            = $00000080;                    {  digitizer does genlock  }
  931.     digiInDoesComposite            = $00000100;                    {  digitizer supports composite input type  }
  932.     digiInDoesSVideo            = $00000200;                    {  digitizer supports S-Video input type  }
  933.     digiInDoesComponent            = $00000400;                    {  digitizer supports component = rgb, input type  }
  934.     digiInVTR_Broadcast            = $00000800;                    {  digitizer can differentiate between the two  }
  935.     digiInDoesColor                = $00001000;                    {  digitizer supports color  }
  936.     digiInDoesBW                = $00002000;                    {  digitizer supports black & white  }
  937.                                                                 {  Digitizer Input Current Flags = these are valid only during active operating conditions,     }
  938.     digiInSignalLock            = $80000000;                    {  digitizer detects input signal is locked, this bit = horiz lock || vertical lock  }
  939.  
  940. {  Digitizer Output Capability/Current Flags  }
  941.     digiOutDoes1                = $00000001;                    {  digitizer supports 1 bit pixels  }
  942.     digiOutDoes2                = $00000002;                    {  digitizer supports 2 bit pixels  }
  943.     digiOutDoes4                = $00000004;                    {  digitizer supports 4 bit pixels  }
  944.     digiOutDoes8                = $00000008;                    {  digitizer supports 8 bit pixels  }
  945.     digiOutDoes16                = $00000010;                    {  digitizer supports 16 bit pixels  }
  946.     digiOutDoes32                = $00000020;                    {  digitizer supports 32 bit pixels  }
  947.     digiOutDoesDither            = $00000040;                    {  digitizer dithers in indexed modes  }
  948.     digiOutDoesStretch            = $00000080;                    {  digitizer can arbitrarily stretch  }
  949.     digiOutDoesShrink            = $00000100;                    {  digitizer can arbitrarily shrink  }
  950.     digiOutDoesMask                = $00000200;                    {  digitizer can mask to clipping regions  }
  951.     digiOutDoesDouble            = $00000800;                    {  digitizer can stretch to exactly double size  }
  952.     digiOutDoesQuad                = $00001000;                    {  digitizer can stretch exactly quadruple size  }
  953.     digiOutDoesQuarter            = $00002000;                    {  digitizer can shrink to exactly quarter size  }
  954.     digiOutDoesSixteenth        = $00004000;                    {  digitizer can shrink to exactly sixteenth size  }
  955.     digiOutDoesRotate            = $00008000;                    {  digitizer supports rotate transformations  }
  956.     digiOutDoesHorizFlip        = $00010000;                    {  digitizer supports horizontal flips Sx < 0  }
  957.     digiOutDoesVertFlip            = $00020000;                    {  digitizer supports vertical flips Sy < 0  }
  958.     digiOutDoesSkew                = $00040000;                    {  digitizer supports skew = shear,twist,  }
  959.     digiOutDoesBlend            = $00080000;
  960.     digiOutDoesWarp                = $00100000;
  961.     digiOutDoesHW_DMA            = $00200000;                    {  digitizer not constrained to local device  }
  962.     digiOutDoesHWPlayThru        = $00400000;                    {  digitizer doesn't need time to play thru  }
  963.     digiOutDoesILUT                = $00800000;                    {  digitizer does inverse LUT for index modes  }
  964.     digiOutDoesKeyColor            = $01000000;                    {  digitizer does key color functions too  }
  965.     digiOutDoesAsyncGrabs        = $02000000;                    {  digitizer supports async grabs  }
  966.     digiOutDoesUnreadableScreenBits = $04000000;                {  playthru doesn't generate readable bits on screen }
  967.     digiOutDoesCompress            = $08000000;                    {  supports alternate output data types  }
  968.     digiOutDoesCompressOnly        = $10000000;                    {  can't provide raw frames anywhere  }
  969.     digiOutDoesPlayThruDuringCompress = $20000000;                {  digi can do playthru while providing compressed data  }
  970.     digiOutDoesCompressPartiallyVisible = $40000000;            {  digi doesn't need all bits visible on screen to do hardware compress  }
  971.  
  972. {  Types  }
  973.  
  974. TYPE
  975.     VideoDigitizerComponent                = ComponentInstance;
  976.     VideoDigitizerError                    = ComponentResult;
  977.     DigitizerInfoPtr = ^DigitizerInfo;
  978.     DigitizerInfo = RECORD
  979.         vdigType:                INTEGER;
  980.         inputCapabilityFlags:    LONGINT;
  981.         outputCapabilityFlags:    LONGINT;
  982.         inputCurrentFlags:        LONGINT;
  983.         outputCurrentFlags:        LONGINT;
  984.         slot:                    INTEGER;                                {  temporary for connection purposes  }
  985.         gdh:                    GDHandle;                                {  temporary for digitizers that have preferred screen  }
  986.         maskgdh:                GDHandle;                                {  temporary for digitizers that have mask planes  }
  987.         minDestHeight:            INTEGER;                                {  Smallest resizable height  }
  988.         minDestWidth:            INTEGER;                                {  Smallest resizable width  }
  989.         maxDestHeight:            INTEGER;                                {  Largest resizable height  }
  990.         maxDestWidth:            INTEGER;                                {  Largest resizable height  }
  991.         blendLevels:            INTEGER;                                {  Number of blend levels supported (2 if 1 bit mask)  }
  992.         reserved:                LONGINT;                                {  reserved  }
  993.     END;
  994.  
  995.     VdigTypePtr = ^VdigType;
  996.     VdigType = RECORD
  997.         digType:                LONGINT;
  998.         reserved:                LONGINT;
  999.     END;
  1000.  
  1001.     VdigTypeListPtr = ^VdigTypeList;
  1002.     VdigTypeList = RECORD
  1003.         count:                    INTEGER;
  1004.         list:                    ARRAY [0..0] OF VdigType;
  1005.     END;
  1006.  
  1007.     VdigBufferRecPtr = ^VdigBufferRec;
  1008.     VdigBufferRec = RECORD
  1009.         dest:                    PixMapHandle;
  1010.         location:                Point;
  1011.         reserved:                LONGINT;
  1012.     END;
  1013.  
  1014.     VdigBufferRecListPtr = ^VdigBufferRecList;
  1015.     VdigBufferRecList = RECORD
  1016.         count:                    INTEGER;
  1017.         matrix:                    MatrixRecordPtr;
  1018.         mask:                    RgnHandle;
  1019.         list:                    ARRAY [0..0] OF VdigBufferRec;
  1020.     END;
  1021.  
  1022.     VdigBufferRecListHandle                = ^VdigBufferRecListPtr;
  1023.     VdigIntProcPtr = ProcPtr;  { PROCEDURE VdigInt(flags: LONGINT; refcon: LONGINT); }
  1024.  
  1025.     VdigIntUPP = UniversalProcPtr;
  1026.     VDCompressionListPtr = ^VDCompressionList;
  1027.     VDCompressionList = RECORD
  1028.         codec:                    CodecComponent;
  1029.         cType:                    CodecType;
  1030.         typeName:                Str63;
  1031.         name:                    Str63;
  1032.         formatFlags:            LONGINT;
  1033.         compressFlags:            LONGINT;
  1034.         reserved:                LONGINT;
  1035.     END;
  1036.  
  1037.     VDCompressionListHandle                = ^VDCompressionListPtr;
  1038.  
  1039. CONST
  1040.     dmaDepth1                    = 1;
  1041.     dmaDepth2                    = 2;
  1042.     dmaDepth4                    = 4;
  1043.     dmaDepth8                    = 8;
  1044.     dmaDepth16                    = 16;
  1045.     dmaDepth32                    = 32;
  1046.     dmaDepth2Gray                = 64;
  1047.     dmaDepth4Gray                = 128;
  1048.     dmaDepth8Gray                = 256;
  1049.  
  1050.     kVDIGControlledFrameRate    = -1;
  1051.  
  1052. FUNCTION VDGetMaxSrcRect(ci: VideoDigitizerComponent; inputStd: INTEGER; VAR maxSrcRect: Rect): VideoDigitizerError;
  1053.     {$IFC NOT GENERATINGCFM}
  1054.     INLINE $2F3C, $0006, $0001, $7000, $A82A;
  1055.     {$ENDC}
  1056. FUNCTION VDGetActiveSrcRect(ci: VideoDigitizerComponent; inputStd: INTEGER; VAR activeSrcRect: Rect): VideoDigitizerError;
  1057.     {$IFC NOT GENERATINGCFM}
  1058.     INLINE $2F3C, $0006, $0002, $7000, $A82A;
  1059.     {$ENDC}
  1060. FUNCTION VDSetDigitizerRect(ci: VideoDigitizerComponent; VAR digitizerRect: Rect): VideoDigitizerError;
  1061.     {$IFC NOT GENERATINGCFM}
  1062.     INLINE $2F3C, $0004, $0003, $7000, $A82A;
  1063.     {$ENDC}
  1064. FUNCTION VDGetDigitizerRect(ci: VideoDigitizerComponent; VAR digitizerRect: Rect): VideoDigitizerError;
  1065.     {$IFC NOT GENERATINGCFM}
  1066.     INLINE $2F3C, $0004, $0004, $7000, $A82A;
  1067.     {$ENDC}
  1068. FUNCTION VDGetVBlankRect(ci: VideoDigitizerComponent; inputStd: INTEGER; VAR vBlankRect: Rect): VideoDigitizerError;
  1069.     {$IFC NOT GENERATINGCFM}
  1070.     INLINE $2F3C, $0006, $0005, $7000, $A82A;
  1071.     {$ENDC}
  1072. FUNCTION VDGetMaskPixMap(ci: VideoDigitizerComponent; maskPixMap: PixMapHandle): VideoDigitizerError;
  1073.     {$IFC NOT GENERATINGCFM}
  1074.     INLINE $2F3C, $0004, $0006, $7000, $A82A;
  1075.     {$ENDC}
  1076. FUNCTION VDGetPlayThruDestination(ci: VideoDigitizerComponent; VAR dest: PixMapHandle; VAR destRect: Rect; VAR m: MatrixRecord; VAR mask: RgnHandle): VideoDigitizerError;
  1077.     {$IFC NOT GENERATINGCFM}
  1078.     INLINE $2F3C, $0010, $0008, $7000, $A82A;
  1079.     {$ENDC}
  1080. FUNCTION VDUseThisCLUT(ci: VideoDigitizerComponent; colorTableHandle: CTabHandle): VideoDigitizerError;
  1081.     {$IFC NOT GENERATINGCFM}
  1082.     INLINE $2F3C, $0004, $0009, $7000, $A82A;
  1083.     {$ENDC}
  1084. FUNCTION VDSetInputGammaValue(ci: VideoDigitizerComponent; channel1: Fixed; channel2: Fixed; channel3: Fixed): VideoDigitizerError;
  1085.     {$IFC NOT GENERATINGCFM}
  1086.     INLINE $2F3C, $000C, $000A, $7000, $A82A;
  1087.     {$ENDC}
  1088. FUNCTION VDGetInputGammaValue(ci: VideoDigitizerComponent; VAR channel1: Fixed; VAR channel2: Fixed; VAR channel3: Fixed): VideoDigitizerError;
  1089.     {$IFC NOT GENERATINGCFM}
  1090.     INLINE $2F3C, $000C, $000B, $7000, $A82A;
  1091.     {$ENDC}
  1092. FUNCTION VDSetBrightness(ci: VideoDigitizerComponent; VAR brightness: INTEGER): VideoDigitizerError;
  1093.     {$IFC NOT GENERATINGCFM}
  1094.     INLINE $2F3C, $0004, $000C, $7000, $A82A;
  1095.     {$ENDC}
  1096. FUNCTION VDGetBrightness(ci: VideoDigitizerComponent; VAR brightness: INTEGER): VideoDigitizerError;
  1097.     {$IFC NOT GENERATINGCFM}
  1098.     INLINE $2F3C, $0004, $000D, $7000, $A82A;
  1099.     {$ENDC}
  1100. FUNCTION VDSetContrast(ci: VideoDigitizerComponent; VAR contrast: INTEGER): VideoDigitizerError;
  1101.     {$IFC NOT GENERATINGCFM}
  1102.     INLINE $2F3C, $0004, $000E, $7000, $A82A;
  1103.     {$ENDC}
  1104. FUNCTION VDSetHue(ci: VideoDigitizerComponent; VAR hue: INTEGER): VideoDigitizerError;
  1105.     {$IFC NOT GENERATINGCFM}
  1106.     INLINE $2F3C, $0004, $000F, $7000, $A82A;
  1107.     {$ENDC}
  1108. FUNCTION VDSetSharpness(ci: VideoDigitizerComponent; VAR sharpness: INTEGER): VideoDigitizerError;
  1109.     {$IFC NOT GENERATINGCFM}
  1110.     INLINE $2F3C, $0004, $0010, $7000, $A82A;
  1111.     {$ENDC}
  1112. FUNCTION VDSetSaturation(ci: VideoDigitizerComponent; VAR saturation: INTEGER): VideoDigitizerError;
  1113.     {$IFC NOT GENERATINGCFM}
  1114.     INLINE $2F3C, $0004, $0011, $7000, $A82A;
  1115.     {$ENDC}
  1116. FUNCTION VDGetContrast(ci: VideoDigitizerComponent; VAR contrast: INTEGER): VideoDigitizerError;
  1117.     {$IFC NOT GENERATINGCFM}
  1118.     INLINE $2F3C, $0004, $0012, $7000, $A82A;
  1119.     {$ENDC}
  1120. FUNCTION VDGetHue(ci: VideoDigitizerComponent; VAR hue: INTEGER): VideoDigitizerError;
  1121.     {$IFC NOT GENERATINGCFM}
  1122.     INLINE $2F3C, $0004, $0013, $7000, $A82A;
  1123.     {$ENDC}
  1124. FUNCTION VDGetSharpness(ci: VideoDigitizerComponent; VAR sharpness: INTEGER): VideoDigitizerError;
  1125.     {$IFC NOT GENERATINGCFM}
  1126.     INLINE $2F3C, $0004, $0014, $7000, $A82A;
  1127.     {$ENDC}
  1128. FUNCTION VDGetSaturation(ci: VideoDigitizerComponent; VAR saturation: INTEGER): VideoDigitizerError;
  1129.     {$IFC NOT GENERATINGCFM}
  1130.     INLINE $2F3C, $0004, $0015, $7000, $A82A;
  1131.     {$ENDC}
  1132. FUNCTION VDGrabOneFrame(ci: VideoDigitizerComponent): VideoDigitizerError;
  1133.     {$IFC NOT GENERATINGCFM}
  1134.     INLINE $2F3C, $0000, $0016, $7000, $A82A;
  1135.     {$ENDC}
  1136. FUNCTION VDGetMaxAuxBuffer(ci: VideoDigitizerComponent; VAR pm: PixMapHandle; VAR r: Rect): VideoDigitizerError;
  1137.     {$IFC NOT GENERATINGCFM}
  1138.     INLINE $2F3C, $0008, $0017, $7000, $A82A;
  1139.     {$ENDC}
  1140. FUNCTION VDGetDigitizerInfo(ci: VideoDigitizerComponent; VAR info: DigitizerInfo): VideoDigitizerError;
  1141.     {$IFC NOT GENERATINGCFM}
  1142.     INLINE $2F3C, $0004, $0019, $7000, $A82A;
  1143.     {$ENDC}
  1144. FUNCTION VDGetCurrentFlags(ci: VideoDigitizerComponent; VAR inputCurrentFlag: LONGINT; VAR outputCurrentFlag: LONGINT): VideoDigitizerError;
  1145.     {$IFC NOT GENERATINGCFM}
  1146.     INLINE $2F3C, $0008, $001A, $7000, $A82A;
  1147.     {$ENDC}
  1148. FUNCTION VDSetKeyColor(ci: VideoDigitizerComponent; index: LONGINT): VideoDigitizerError;
  1149.     {$IFC NOT GENERATINGCFM}
  1150.     INLINE $2F3C, $0004, $001B, $7000, $A82A;
  1151.     {$ENDC}
  1152. FUNCTION VDGetKeyColor(ci: VideoDigitizerComponent; VAR index: LONGINT): VideoDigitizerError;
  1153.     {$IFC NOT GENERATINGCFM}
  1154.     INLINE $2F3C, $0004, $001C, $7000, $A82A;
  1155.     {$ENDC}
  1156. FUNCTION VDAddKeyColor(ci: VideoDigitizerComponent; VAR index: LONGINT): VideoDigitizerError;
  1157.     {$IFC NOT GENERATINGCFM}
  1158.     INLINE $2F3C, $0004, $001D, $7000, $A82A;
  1159.     {$ENDC}
  1160. FUNCTION VDGetNextKeyColor(ci: VideoDigitizerComponent; index: LONGINT): VideoDigitizerError;
  1161.     {$IFC NOT GENERATINGCFM}
  1162.     INLINE $2F3C, $0004, $001E, $7000, $A82A;
  1163.     {$ENDC}
  1164. FUNCTION VDSetKeyColorRange(ci: VideoDigitizerComponent; VAR minRGB: RGBColor; VAR maxRGB: RGBColor): VideoDigitizerError;
  1165.     {$IFC NOT GENERATINGCFM}
  1166.     INLINE $2F3C, $0008, $001F, $7000, $A82A;
  1167.     {$ENDC}
  1168. FUNCTION VDGetKeyColorRange(ci: VideoDigitizerComponent; VAR minRGB: RGBColor; VAR maxRGB: RGBColor): VideoDigitizerError;
  1169.     {$IFC NOT GENERATINGCFM}
  1170.     INLINE $2F3C, $0008, $0020, $7000, $A82A;
  1171.     {$ENDC}
  1172. FUNCTION VDSetDigitizerUserInterrupt(ci: VideoDigitizerComponent; flags: LONGINT; userInterruptProc: VdigIntUPP; refcon: LONGINT): VideoDigitizerError;
  1173.     {$IFC NOT GENERATINGCFM}
  1174.     INLINE $2F3C, $000C, $0021, $7000, $A82A;
  1175.     {$ENDC}
  1176. FUNCTION VDSetInputColorSpaceMode(ci: VideoDigitizerComponent; colorSpaceMode: INTEGER): VideoDigitizerError;
  1177.     {$IFC NOT GENERATINGCFM}
  1178.     INLINE $2F3C, $0002, $0022, $7000, $A82A;
  1179.     {$ENDC}
  1180. FUNCTION VDGetInputColorSpaceMode(ci: VideoDigitizerComponent; VAR colorSpaceMode: INTEGER): VideoDigitizerError;
  1181.     {$IFC NOT GENERATINGCFM}
  1182.     INLINE $2F3C, $0004, $0023, $7000, $A82A;
  1183.     {$ENDC}
  1184. FUNCTION VDSetClipState(ci: VideoDigitizerComponent; clipEnable: INTEGER): VideoDigitizerError;
  1185.     {$IFC NOT GENERATINGCFM}
  1186.     INLINE $2F3C, $0002, $0024, $7000, $A82A;
  1187.     {$ENDC}
  1188. FUNCTION VDGetClipState(ci: VideoDigitizerComponent; VAR clipEnable: INTEGER): VideoDigitizerError;
  1189.     {$IFC NOT GENERATINGCFM}
  1190.     INLINE $2F3C, $0004, $0025, $7000, $A82A;
  1191.     {$ENDC}
  1192. FUNCTION VDSetClipRgn(ci: VideoDigitizerComponent; clipRegion: RgnHandle): VideoDigitizerError;
  1193.     {$IFC NOT GENERATINGCFM}
  1194.     INLINE $2F3C, $0004, $0026, $7000, $A82A;
  1195.     {$ENDC}
  1196. FUNCTION VDClearClipRgn(ci: VideoDigitizerComponent; clipRegion: RgnHandle): VideoDigitizerError;
  1197.     {$IFC NOT GENERATINGCFM}
  1198.     INLINE $2F3C, $0004, $0027, $7000, $A82A;
  1199.     {$ENDC}
  1200. FUNCTION VDGetCLUTInUse(ci: VideoDigitizerComponent; VAR colorTableHandle: CTabHandle): VideoDigitizerError;
  1201.     {$IFC NOT GENERATINGCFM}
  1202.     INLINE $2F3C, $0004, $0028, $7000, $A82A;
  1203.     {$ENDC}
  1204. FUNCTION VDSetPLLFilterType(ci: VideoDigitizerComponent; pllType: INTEGER): VideoDigitizerError;
  1205.     {$IFC NOT GENERATINGCFM}
  1206.     INLINE $2F3C, $0002, $0029, $7000, $A82A;
  1207.     {$ENDC}
  1208. FUNCTION VDGetPLLFilterType(ci: VideoDigitizerComponent; VAR pllType: INTEGER): VideoDigitizerError;
  1209.     {$IFC NOT GENERATINGCFM}
  1210.     INLINE $2F3C, $0004, $002A, $7000, $A82A;
  1211.     {$ENDC}
  1212. FUNCTION VDGetMaskandValue(ci: VideoDigitizerComponent; blendLevel: INTEGER; VAR mask: LONGINT; VAR value: LONGINT): VideoDigitizerError;
  1213.     {$IFC NOT GENERATINGCFM}
  1214.     INLINE $2F3C, $000A, $002B, $7000, $A82A;
  1215.     {$ENDC}
  1216. FUNCTION VDSetMasterBlendLevel(ci: VideoDigitizerComponent; VAR blendLevel: INTEGER): VideoDigitizerError;
  1217.     {$IFC NOT GENERATINGCFM}
  1218.     INLINE $2F3C, $0004, $002C, $7000, $A82A;
  1219.     {$ENDC}
  1220. FUNCTION VDSetPlayThruDestination(ci: VideoDigitizerComponent; dest: PixMapHandle; VAR destRect: Rect; VAR m: MatrixRecord; mask: RgnHandle): VideoDigitizerError;
  1221.     {$IFC NOT GENERATINGCFM}
  1222.     INLINE $2F3C, $0010, $002D, $7000, $A82A;
  1223.     {$ENDC}
  1224. FUNCTION VDSetPlayThruOnOff(ci: VideoDigitizerComponent; state: INTEGER): VideoDigitizerError;
  1225.     {$IFC NOT GENERATINGCFM}
  1226.     INLINE $2F3C, $0002, $002E, $7000, $A82A;
  1227.     {$ENDC}
  1228. FUNCTION VDSetFieldPreference(ci: VideoDigitizerComponent; fieldFlag: INTEGER): VideoDigitizerError;
  1229.     {$IFC NOT GENERATINGCFM}
  1230.     INLINE $2F3C, $0002, $002F, $7000, $A82A;
  1231.     {$ENDC}
  1232. FUNCTION VDGetFieldPreference(ci: VideoDigitizerComponent; VAR fieldFlag: INTEGER): VideoDigitizerError;
  1233.     {$IFC NOT GENERATINGCFM}
  1234.     INLINE $2F3C, $0004, $0030, $7000, $A82A;
  1235.     {$ENDC}
  1236. FUNCTION VDPreflightDestination(ci: VideoDigitizerComponent; VAR digitizerRect: Rect; VAR dest: PixMapPtr; VAR destRect: Rect; VAR m: MatrixRecord): VideoDigitizerError;
  1237.     {$IFC NOT GENERATINGCFM}
  1238.     INLINE $2F3C, $0010, $0032, $7000, $A82A;
  1239.     {$ENDC}
  1240. FUNCTION VDPreflightGlobalRect(ci: VideoDigitizerComponent; theWindow: GrafPtr; VAR globalRect: Rect): VideoDigitizerError;
  1241.     {$IFC NOT GENERATINGCFM}
  1242.     INLINE $2F3C, $0008, $0033, $7000, $A82A;
  1243.     {$ENDC}
  1244. FUNCTION VDSetPlayThruGlobalRect(ci: VideoDigitizerComponent; theWindow: GrafPtr; VAR globalRect: Rect): VideoDigitizerError;
  1245.     {$IFC NOT GENERATINGCFM}
  1246.     INLINE $2F3C, $0008, $0034, $7000, $A82A;
  1247.     {$ENDC}
  1248. FUNCTION VDSetInputGammaRecord(ci: VideoDigitizerComponent; inputGammaPtr: VDGamRecPtr): VideoDigitizerError;
  1249.     {$IFC NOT GENERATINGCFM}
  1250.     INLINE $2F3C, $0004, $0035, $7000, $A82A;
  1251.     {$ENDC}
  1252. FUNCTION VDGetInputGammaRecord(ci: VideoDigitizerComponent; VAR inputGammaPtr: VDGamRecPtr): VideoDigitizerError;
  1253.     {$IFC NOT GENERATINGCFM}
  1254.     INLINE $2F3C, $0004, $0036, $7000, $A82A;
  1255.     {$ENDC}
  1256. FUNCTION VDSetBlackLevelValue(ci: VideoDigitizerComponent; VAR blackLevel: INTEGER): VideoDigitizerError;
  1257.     {$IFC NOT GENERATINGCFM}
  1258.     INLINE $2F3C, $0004, $0037, $7000, $A82A;
  1259.     {$ENDC}
  1260. FUNCTION VDGetBlackLevelValue(ci: VideoDigitizerComponent; VAR blackLevel: INTEGER): VideoDigitizerError;
  1261.     {$IFC NOT GENERATINGCFM}
  1262.     INLINE $2F3C, $0004, $0038, $7000, $A82A;
  1263.     {$ENDC}
  1264. FUNCTION VDSetWhiteLevelValue(ci: VideoDigitizerComponent; VAR whiteLevel: INTEGER): VideoDigitizerError;
  1265.     {$IFC NOT GENERATINGCFM}
  1266.     INLINE $2F3C, $0004, $0039, $7000, $A82A;
  1267.     {$ENDC}
  1268. FUNCTION VDGetWhiteLevelValue(ci: VideoDigitizerComponent; VAR whiteLevel: INTEGER): VideoDigitizerError;
  1269.     {$IFC NOT GENERATINGCFM}
  1270.     INLINE $2F3C, $0004, $003A, $7000, $A82A;
  1271.     {$ENDC}
  1272. FUNCTION VDGetVideoDefaults(ci: VideoDigitizerComponent; VAR blackLevel: INTEGER; VAR whiteLevel: INTEGER; VAR brightness: INTEGER; VAR hue: INTEGER; VAR saturation: INTEGER; VAR contrast: INTEGER; VAR sharpness: INTEGER): VideoDigitizerError;
  1273.     {$IFC NOT GENERATINGCFM}
  1274.     INLINE $2F3C, $001C, $003B, $7000, $A82A;
  1275.     {$ENDC}
  1276. FUNCTION VDGetNumberOfInputs(ci: VideoDigitizerComponent; VAR inputs: INTEGER): VideoDigitizerError;
  1277.     {$IFC NOT GENERATINGCFM}
  1278.     INLINE $2F3C, $0004, $003C, $7000, $A82A;
  1279.     {$ENDC}
  1280. FUNCTION VDGetInputFormat(ci: VideoDigitizerComponent; input: INTEGER; VAR format: INTEGER): VideoDigitizerError;
  1281.     {$IFC NOT GENERATINGCFM}
  1282.     INLINE $2F3C, $0006, $003D, $7000, $A82A;
  1283.     {$ENDC}
  1284. FUNCTION VDSetInput(ci: VideoDigitizerComponent; input: INTEGER): VideoDigitizerError;
  1285.     {$IFC NOT GENERATINGCFM}
  1286.     INLINE $2F3C, $0002, $003E, $7000, $A82A;
  1287.     {$ENDC}
  1288. FUNCTION VDGetInput(ci: VideoDigitizerComponent; VAR input: INTEGER): VideoDigitizerError;
  1289.     {$IFC NOT GENERATINGCFM}
  1290.     INLINE $2F3C, $0004, $003F, $7000, $A82A;
  1291.     {$ENDC}
  1292. FUNCTION VDSetInputStandard(ci: VideoDigitizerComponent; inputStandard: INTEGER): VideoDigitizerError;
  1293.     {$IFC NOT GENERATINGCFM}
  1294.     INLINE $2F3C, $0002, $0040, $7000, $A82A;
  1295.     {$ENDC}
  1296. FUNCTION VDSetupBuffers(ci: VideoDigitizerComponent; bufferList: VdigBufferRecListHandle): VideoDigitizerError;
  1297.     {$IFC NOT GENERATINGCFM}
  1298.     INLINE $2F3C, $0004, $0041, $7000, $A82A;
  1299.     {$ENDC}
  1300. FUNCTION VDGrabOneFrameAsync(ci: VideoDigitizerComponent; buffer: INTEGER): VideoDigitizerError;
  1301.     {$IFC NOT GENERATINGCFM}
  1302.     INLINE $2F3C, $0002, $0042, $7000, $A82A;
  1303.     {$ENDC}
  1304. FUNCTION VDDone(ci: VideoDigitizerComponent; buffer: INTEGER): VideoDigitizerError;
  1305.     {$IFC NOT GENERATINGCFM}
  1306.     INLINE $2F3C, $0002, $0043, $7000, $A82A;
  1307.     {$ENDC}
  1308. FUNCTION VDSetCompression(ci: VideoDigitizerComponent; compressType: OSType; depth: INTEGER; VAR bounds: Rect; spatialQuality: CodecQ; temporalQuality: CodecQ; keyFrameRate: LONGINT): VideoDigitizerError;
  1309.     {$IFC NOT GENERATINGCFM}
  1310.     INLINE $2F3C, $0016, $0044, $7000, $A82A;
  1311.     {$ENDC}
  1312. FUNCTION VDCompressOneFrameAsync(ci: VideoDigitizerComponent): VideoDigitizerError;
  1313.     {$IFC NOT GENERATINGCFM}
  1314.     INLINE $2F3C, $0000, $0045, $7000, $A82A;
  1315.     {$ENDC}
  1316. FUNCTION VDCompressDone(ci: VideoDigitizerComponent; VAR done: BOOLEAN; VAR theData: Ptr; VAR dataSize: LONGINT; VAR similarity: UInt8; VAR t: TimeRecord): VideoDigitizerError;
  1317.     {$IFC NOT GENERATINGCFM}
  1318.     INLINE $2F3C, $0014, $0046, $7000, $A82A;
  1319.     {$ENDC}
  1320. FUNCTION VDReleaseCompressBuffer(ci: VideoDigitizerComponent; bufferAddr: Ptr): VideoDigitizerError;
  1321.     {$IFC NOT GENERATINGCFM}
  1322.     INLINE $2F3C, $0004, $0047, $7000, $A82A;
  1323.     {$ENDC}
  1324. FUNCTION VDGetImageDescription(ci: VideoDigitizerComponent; desc: ImageDescriptionHandle): VideoDigitizerError;
  1325.     {$IFC NOT GENERATINGCFM}
  1326.     INLINE $2F3C, $0004, $0048, $7000, $A82A;
  1327.     {$ENDC}
  1328. FUNCTION VDResetCompressSequence(ci: VideoDigitizerComponent): VideoDigitizerError;
  1329.     {$IFC NOT GENERATINGCFM}
  1330.     INLINE $2F3C, $0000, $0049, $7000, $A82A;
  1331.     {$ENDC}
  1332. FUNCTION VDSetCompressionOnOff(ci: VideoDigitizerComponent; state: BOOLEAN): VideoDigitizerError;
  1333.     {$IFC NOT GENERATINGCFM}
  1334.     INLINE $2F3C, $0002, $004A, $7000, $A82A;
  1335.     {$ENDC}
  1336. FUNCTION VDGetCompressionTypes(ci: VideoDigitizerComponent; h: VDCompressionListHandle): VideoDigitizerError;
  1337.     {$IFC NOT GENERATINGCFM}
  1338.     INLINE $2F3C, $0004, $004B, $7000, $A82A;
  1339.     {$ENDC}
  1340. FUNCTION VDSetTimeBase(ci: VideoDigitizerComponent; t: TimeBase): VideoDigitizerError;
  1341.     {$IFC NOT GENERATINGCFM}
  1342.     INLINE $2F3C, $0004, $004C, $7000, $A82A;
  1343.     {$ENDC}
  1344. FUNCTION VDSetFrameRate(ci: VideoDigitizerComponent; framesPerSecond: Fixed): VideoDigitizerError;
  1345.     {$IFC NOT GENERATINGCFM}
  1346.     INLINE $2F3C, $0004, $004D, $7000, $A82A;
  1347.     {$ENDC}
  1348. FUNCTION VDGetDataRate(ci: VideoDigitizerComponent; VAR milliSecPerFrame: LONGINT; VAR framesPerSecond: Fixed; VAR bytesPerSecond: LONGINT): VideoDigitizerError;
  1349.     {$IFC NOT GENERATINGCFM}
  1350.     INLINE $2F3C, $000C, $004E, $7000, $A82A;
  1351.     {$ENDC}
  1352. FUNCTION VDGetSoundInputDriver(ci: VideoDigitizerComponent; VAR soundDriverName: Str255): VideoDigitizerError;
  1353.     {$IFC NOT GENERATINGCFM}
  1354.     INLINE $2F3C, $0004, $004F, $7000, $A82A;
  1355.     {$ENDC}
  1356. FUNCTION VDGetDMADepths(ci: VideoDigitizerComponent; VAR depthArray: LONGINT; VAR preferredDepth: LONGINT): VideoDigitizerError;
  1357.     {$IFC NOT GENERATINGCFM}
  1358.     INLINE $2F3C, $0008, $0050, $7000, $A82A;
  1359.     {$ENDC}
  1360. FUNCTION VDGetPreferredTimeScale(ci: VideoDigitizerComponent; VAR preferred: TimeScale): VideoDigitizerError;
  1361.     {$IFC NOT GENERATINGCFM}
  1362.     INLINE $2F3C, $0004, $0051, $7000, $A82A;
  1363.     {$ENDC}
  1364. FUNCTION VDReleaseAsyncBuffers(ci: VideoDigitizerComponent): VideoDigitizerError;
  1365.     {$IFC NOT GENERATINGCFM}
  1366.     INLINE $2F3C, $0000, $0052, $7000, $A82A;
  1367.     {$ENDC}
  1368. {  83 is reserved for compatibility reasons  }
  1369. FUNCTION VDSetDataRate(ci: VideoDigitizerComponent; bytesPerSecond: LONGINT): VideoDigitizerError;
  1370.     {$IFC NOT GENERATINGCFM}
  1371.     INLINE $2F3C, $0004, $0054, $7000, $A82A;
  1372.     {$ENDC}
  1373. FUNCTION VDGetTimeCode(ci: VideoDigitizerComponent; VAR atTime: TimeRecord; timeCodeFormat: UNIV Ptr; timeCodeTime: UNIV Ptr): VideoDigitizerError;
  1374.     {$IFC NOT GENERATINGCFM}
  1375.     INLINE $2F3C, $000C, $0055, $7000, $A82A;
  1376.     {$ENDC}
  1377. FUNCTION VDUseSafeBuffers(ci: VideoDigitizerComponent; useSafeBuffers: BOOLEAN): VideoDigitizerError;
  1378.     {$IFC NOT GENERATINGCFM}
  1379.     INLINE $2F3C, $0002, $0056, $7000, $A82A;
  1380.     {$ENDC}
  1381. FUNCTION VDGetSoundInputSource(ci: VideoDigitizerComponent; videoInput: LONGINT; VAR soundInput: LONGINT): VideoDigitizerError;
  1382.     {$IFC NOT GENERATINGCFM}
  1383.     INLINE $2F3C, $0008, $0057, $7000, $A82A;
  1384.     {$ENDC}
  1385. FUNCTION VDGetCompressionTime(ci: VideoDigitizerComponent; compressionType: OSType; depth: INTEGER; VAR srcRect: Rect; VAR spatialQuality: CodecQ; VAR temporalQuality: CodecQ; VAR compressTime: LONGINT): VideoDigitizerError;
  1386.     {$IFC NOT GENERATINGCFM}
  1387.     INLINE $2F3C, $0016, $0058, $7000, $A82A;
  1388.     {$ENDC}
  1389. FUNCTION VDSetPreferredPacketSize(ci: VideoDigitizerComponent; preferredPacketSizeInBytes: LONGINT): VideoDigitizerError;
  1390.     {$IFC NOT GENERATINGCFM}
  1391.     INLINE $2F3C, $0004, $0059, $7000, $A82A;
  1392.     {$ENDC}
  1393. {
  1394.     General Sequence Grab stuff
  1395. }
  1396.  
  1397. TYPE
  1398.     SeqGrabComponent                    = ComponentInstance;
  1399.     SGChannel                            = ComponentInstance;
  1400.  
  1401. CONST
  1402.     SeqGrabComponentType        = 'barg';
  1403.     SeqGrabChannelType            = 'sgch';
  1404.     SeqGrabPanelType            = 'sgpn';
  1405.     SeqGrabCompressionPanelType    = 'cmpr';
  1406.     SeqGrabSourcePanelType        = 'sour';
  1407.  
  1408.     seqGrabToDisk                = 1;
  1409.     seqGrabToMemory                = 2;
  1410.     seqGrabDontUseTempMemory    = 4;
  1411.     seqGrabAppendToFile            = 8;
  1412.     seqGrabDontAddMovieResource    = 16;
  1413.     seqGrabDontMakeMovie        = 32;
  1414.     seqGrabPreExtendFile        = 64;
  1415.     seqGrabDataProcIsInterruptSafe = 128;
  1416.     seqGrabDataProcDoesOverlappingReads = 256;
  1417.  
  1418.  
  1419. TYPE
  1420.     SeqGrabDataOutputEnum                = LONGINT;
  1421.  
  1422. CONST
  1423.     seqGrabRecord                = 1;
  1424.     seqGrabPreview                = 2;
  1425.     seqGrabPlayDuringRecord        = 4;
  1426.  
  1427.  
  1428. TYPE
  1429.     SeqGrabUsageEnum                    = LONGINT;
  1430.  
  1431. CONST
  1432.     seqGrabHasBounds            = 1;
  1433.     seqGrabHasVolume            = 2;
  1434.     seqGrabHasDiscreteSamples    = 4;
  1435.  
  1436.  
  1437. TYPE
  1438.     SeqGrabChannelInfoEnum                = LONGINT;
  1439.     SeqGrabFrameInfoPtr = ^SeqGrabFrameInfo;
  1440.     SeqGrabFrameInfo = RECORD
  1441.         frameOffset:            LONGINT;
  1442.         frameTime:                LONGINT;
  1443.         frameSize:                LONGINT;
  1444.         frameChannel:            SGChannel;
  1445.         frameRefCon:            LONGINT;
  1446.     END;
  1447.  
  1448.  
  1449. CONST
  1450.     grabPictOffScreen            = 1;
  1451.     grabPictIgnoreClip            = 2;
  1452.     grabPictCurrentImage        = 4;
  1453.  
  1454.     sgFlagControlledGrab        = $01;
  1455.  
  1456.  
  1457. TYPE
  1458.     SGDataProcPtr = ProcPtr;  { FUNCTION SGData(c: SGChannel; p: Ptr; len: LONGINT; VAR offset: LONGINT; chRefCon: LONGINT; time: TimeValue; writeType: INTEGER; refCon: LONGINT): OSErr; }
  1459.  
  1460.     SGDataUPP = UniversalProcPtr;
  1461.     SGDeviceNamePtr = ^SGDeviceName;
  1462.     SGDeviceName = RECORD
  1463.         name:                    Str63;
  1464.         icon:                    Handle;
  1465.         flags:                    LONGINT;
  1466.         refCon:                    LONGINT;
  1467.         reserved:                LONGINT;                                {  zero }
  1468.     END;
  1469.  
  1470.  
  1471. CONST
  1472.     sgDeviceNameFlagDeviceUnavailable = $01;
  1473.  
  1474.  
  1475. TYPE
  1476.     SGDeviceListRecordPtr = ^SGDeviceListRecord;
  1477.     SGDeviceListRecord = RECORD
  1478.         count:                    INTEGER;
  1479.         selectedIndex:            INTEGER;
  1480.         reserved:                LONGINT;                                {  zero }
  1481.         entry:                    ARRAY [0..0] OF SGDeviceName;
  1482.     END;
  1483.  
  1484.     SGDeviceListPtr                        = ^SGDeviceListRecord;
  1485.     SGDeviceList                        = ^SGDeviceListPtr;
  1486.  
  1487. CONST
  1488.     sgDeviceListWithIcons        = $01;
  1489.     sgDeviceListDontCheckAvailability = $02;
  1490.  
  1491.     seqGrabWriteAppend            = 0;
  1492.     seqGrabWriteReserve            = 1;
  1493.     seqGrabWriteFill            = 2;
  1494.  
  1495.     seqGrabUnpause                = 0;
  1496.     seqGrabPause                = 1;
  1497.     seqGrabPauseForMenu            = 3;
  1498.  
  1499.     channelFlagDontOpenResFile    = 2;
  1500.     channelFlagHasDependency    = 4;
  1501.  
  1502.  
  1503. TYPE
  1504.     SGModalFilterProcPtr = ProcPtr;  { FUNCTION SGModalFilter(theDialog: DialogPtr; VAR theEvent: EventRecord; VAR itemHit: INTEGER; refCon: LONGINT): BOOLEAN; }
  1505.  
  1506.     SGModalFilterUPP = UniversalProcPtr;
  1507.  
  1508. CONST
  1509.     sgPanelFlagForPanel            = 1;
  1510.  
  1511.     seqGrabSettingsPreviewOnly    = 1;
  1512.  
  1513.  
  1514. TYPE
  1515.     SGOutputRecordPtr = ^SGOutputRecord;
  1516.     SGOutputRecord = RECORD
  1517.         data:                    ARRAY [0..0] OF LONGINT;
  1518.     END;
  1519.  
  1520.     SGOutput                            = ^SGOutputRecord;
  1521.  
  1522. CONST
  1523.     channelPlayNormal            = 0;
  1524.     channelPlayFast                = 1;
  1525.     channelPlayHighQuality        = 2;
  1526.     channelPlayAllData            = 4;
  1527.  
  1528. FUNCTION SGInitialize(s: SeqGrabComponent): ComponentResult;
  1529.     {$IFC NOT GENERATINGCFM}
  1530.     INLINE $2F3C, $0000, $0001, $7000, $A82A;
  1531.     {$ENDC}
  1532. FUNCTION SGSetDataOutput(s: SeqGrabComponent; {CONST}VAR movieFile: FSSpec; whereFlags: LONGINT): ComponentResult;
  1533.     {$IFC NOT GENERATINGCFM}
  1534.     INLINE $2F3C, $0008, $0002, $7000, $A82A;
  1535.     {$ENDC}
  1536. FUNCTION SGGetDataOutput(s: SeqGrabComponent; VAR movieFile: FSSpec; VAR whereFlags: LONGINT): ComponentResult;
  1537.     {$IFC NOT GENERATINGCFM}
  1538.     INLINE $2F3C, $0008, $0003, $7000, $A82A;
  1539.     {$ENDC}
  1540. FUNCTION SGSetGWorld(s: SeqGrabComponent; gp: CGrafPtr; gd: GDHandle): ComponentResult;
  1541.     {$IFC NOT GENERATINGCFM}
  1542.     INLINE $2F3C, $0008, $0004, $7000, $A82A;
  1543.     {$ENDC}
  1544. FUNCTION SGGetGWorld(s: SeqGrabComponent; VAR gp: CGrafPtr; VAR gd: GDHandle): ComponentResult;
  1545.     {$IFC NOT GENERATINGCFM}
  1546.     INLINE $2F3C, $0008, $0005, $7000, $A82A;
  1547.     {$ENDC}
  1548. FUNCTION SGNewChannel(s: SeqGrabComponent; channelType: OSType; VAR ref: SGChannel): ComponentResult;
  1549.     {$IFC NOT GENERATINGCFM}
  1550.     INLINE $2F3C, $0008, $0006, $7000, $A82A;
  1551.     {$ENDC}
  1552. FUNCTION SGDisposeChannel(s: SeqGrabComponent; c: SGChannel): ComponentResult;
  1553.     {$IFC NOT GENERATINGCFM}
  1554.     INLINE $2F3C, $0004, $0007, $7000, $A82A;
  1555.     {$ENDC}
  1556. FUNCTION SGStartPreview(s: SeqGrabComponent): ComponentResult;
  1557.     {$IFC NOT GENERATINGCFM}
  1558.     INLINE $2F3C, $0000, $0010, $7000, $A82A;
  1559.     {$ENDC}
  1560. FUNCTION SGStartRecord(s: SeqGrabComponent): ComponentResult;
  1561.     {$IFC NOT GENERATINGCFM}
  1562.     INLINE $2F3C, $0000, $0011, $7000, $A82A;
  1563.     {$ENDC}
  1564. FUNCTION SGIdle(s: SeqGrabComponent): ComponentResult;
  1565.     {$IFC NOT GENERATINGCFM}
  1566.     INLINE $2F3C, $0000, $0012, $7000, $A82A;
  1567.     {$ENDC}
  1568. FUNCTION SGStop(s: SeqGrabComponent): ComponentResult;
  1569.     {$IFC NOT GENERATINGCFM}
  1570.     INLINE $2F3C, $0000, $0013, $7000, $A82A;
  1571.     {$ENDC}
  1572. FUNCTION SGPause(s: SeqGrabComponent; pause: ByteParameter): ComponentResult;
  1573.     {$IFC NOT GENERATINGCFM}
  1574.     INLINE $2F3C, $0002, $0014, $7000, $A82A;
  1575.     {$ENDC}
  1576. FUNCTION SGPrepare(s: SeqGrabComponent; prepareForPreview: BOOLEAN; prepareForRecord: BOOLEAN): ComponentResult;
  1577.     {$IFC NOT GENERATINGCFM}
  1578.     INLINE $2F3C, $0004, $0015, $7000, $A82A;
  1579.     {$ENDC}
  1580. FUNCTION SGRelease(s: SeqGrabComponent): ComponentResult;
  1581.     {$IFC NOT GENERATINGCFM}
  1582.     INLINE $2F3C, $0000, $0016, $7000, $A82A;
  1583.     {$ENDC}
  1584. FUNCTION SGGetMovie(s: SeqGrabComponent): Movie;
  1585.     {$IFC NOT GENERATINGCFM}
  1586.     INLINE $2F3C, $0000, $0017, $7000, $A82A;
  1587.     {$ENDC}
  1588. FUNCTION SGSetMaximumRecordTime(s: SeqGrabComponent; ticks: LONGINT): ComponentResult;
  1589.     {$IFC NOT GENERATINGCFM}
  1590.     INLINE $2F3C, $0004, $0018, $7000, $A82A;
  1591.     {$ENDC}
  1592. FUNCTION SGGetMaximumRecordTime(s: SeqGrabComponent; VAR ticks: LONGINT): ComponentResult;
  1593.     {$IFC NOT GENERATINGCFM}
  1594.     INLINE $2F3C, $0004, $0019, $7000, $A82A;
  1595.     {$ENDC}
  1596. FUNCTION SGGetStorageSpaceRemaining(s: SeqGrabComponent; VAR bytes: LONGINT): ComponentResult;
  1597.     {$IFC NOT GENERATINGCFM}
  1598.     INLINE $2F3C, $0004, $001A, $7000, $A82A;
  1599.     {$ENDC}
  1600. FUNCTION SGGetTimeRemaining(s: SeqGrabComponent; VAR ticksLeft: LONGINT): ComponentResult;
  1601.     {$IFC NOT GENERATINGCFM}
  1602.     INLINE $2F3C, $0004, $001B, $7000, $A82A;
  1603.     {$ENDC}
  1604. FUNCTION SGGrabPict(s: SeqGrabComponent; VAR p: PicHandle; {CONST}VAR bounds: Rect; offscreenDepth: INTEGER; grabPictFlags: LONGINT): ComponentResult;
  1605.     {$IFC NOT GENERATINGCFM}
  1606.     INLINE $2F3C, $000E, $001C, $7000, $A82A;
  1607.     {$ENDC}
  1608. FUNCTION SGGetLastMovieResID(s: SeqGrabComponent; VAR resID: INTEGER): ComponentResult;
  1609.     {$IFC NOT GENERATINGCFM}
  1610.     INLINE $2F3C, $0004, $001D, $7000, $A82A;
  1611.     {$ENDC}
  1612. FUNCTION SGSetFlags(s: SeqGrabComponent; sgFlags: LONGINT): ComponentResult;
  1613.     {$IFC NOT GENERATINGCFM}
  1614.     INLINE $2F3C, $0004, $001E, $7000, $A82A;
  1615.     {$ENDC}
  1616. FUNCTION SGGetFlags(s: SeqGrabComponent; VAR sgFlags: LONGINT): ComponentResult;
  1617.     {$IFC NOT GENERATINGCFM}
  1618.     INLINE $2F3C, $0004, $001F, $7000, $A82A;
  1619.     {$ENDC}
  1620. FUNCTION SGSetDataProc(s: SeqGrabComponent; proc: SGDataUPP; refCon: LONGINT): ComponentResult;
  1621.     {$IFC NOT GENERATINGCFM}
  1622.     INLINE $2F3C, $0008, $0020, $7000, $A82A;
  1623.     {$ENDC}
  1624. FUNCTION SGNewChannelFromComponent(s: SeqGrabComponent; VAR newChannel: SGChannel; sgChannelComponent: Component): ComponentResult;
  1625.     {$IFC NOT GENERATINGCFM}
  1626.     INLINE $2F3C, $0008, $0021, $7000, $A82A;
  1627.     {$ENDC}
  1628. FUNCTION SGDisposeDeviceList(s: SeqGrabComponent; list: SGDeviceList): ComponentResult;
  1629.     {$IFC NOT GENERATINGCFM}
  1630.     INLINE $2F3C, $0004, $0022, $7000, $A82A;
  1631.     {$ENDC}
  1632. FUNCTION SGAppendDeviceListToMenu(s: SeqGrabComponent; list: SGDeviceList; mh: MenuHandle): ComponentResult;
  1633.     {$IFC NOT GENERATINGCFM}
  1634.     INLINE $2F3C, $0008, $0023, $7000, $A82A;
  1635.     {$ENDC}
  1636. FUNCTION SGSetSettings(s: SeqGrabComponent; ud: UserData; flags: LONGINT): ComponentResult;
  1637.     {$IFC NOT GENERATINGCFM}
  1638.     INLINE $2F3C, $0008, $0024, $7000, $A82A;
  1639.     {$ENDC}
  1640. FUNCTION SGGetSettings(s: SeqGrabComponent; VAR ud: UserData; flags: LONGINT): ComponentResult;
  1641.     {$IFC NOT GENERATINGCFM}
  1642.     INLINE $2F3C, $0008, $0025, $7000, $A82A;
  1643.     {$ENDC}
  1644. FUNCTION SGGetIndChannel(s: SeqGrabComponent; index: INTEGER; VAR ref: SGChannel; VAR chanType: OSType): ComponentResult;
  1645.     {$IFC NOT GENERATINGCFM}
  1646.     INLINE $2F3C, $000A, $0026, $7000, $A82A;
  1647.     {$ENDC}
  1648. FUNCTION SGUpdate(s: SeqGrabComponent; updateRgn: RgnHandle): ComponentResult;
  1649.     {$IFC NOT GENERATINGCFM}
  1650.     INLINE $2F3C, $0004, $0027, $7000, $A82A;
  1651.     {$ENDC}
  1652. FUNCTION SGGetPause(s: SeqGrabComponent; VAR paused: Byte): ComponentResult;
  1653.     {$IFC NOT GENERATINGCFM}
  1654.     INLINE $2F3C, $0004, $0028, $7000, $A82A;
  1655.     {$ENDC}
  1656.  
  1657. TYPE
  1658.     ConstComponentListPtr                = ^Component;
  1659. FUNCTION SGSettingsDialog(s: SeqGrabComponent; c: SGChannel; numPanels: INTEGER; panelList: ConstComponentListPtr; flags: LONGINT; proc: SGModalFilterUPP; procRefNum: LONGINT): ComponentResult;
  1660.     {$IFC NOT GENERATINGCFM}
  1661.     INLINE $2F3C, $0016, $0029, $7000, $A82A;
  1662.     {$ENDC}
  1663. FUNCTION SGGetAlignmentProc(s: SeqGrabComponent; alignmentProc: ICMAlignmentProcRecordPtr): ComponentResult;
  1664.     {$IFC NOT GENERATINGCFM}
  1665.     INLINE $2F3C, $0004, $002A, $7000, $A82A;
  1666.     {$ENDC}
  1667. FUNCTION SGSetChannelSettings(s: SeqGrabComponent; c: SGChannel; ud: UserData; flags: LONGINT): ComponentResult;
  1668.     {$IFC NOT GENERATINGCFM}
  1669.     INLINE $2F3C, $000C, $002B, $7000, $A82A;
  1670.     {$ENDC}
  1671. FUNCTION SGGetChannelSettings(s: SeqGrabComponent; c: SGChannel; VAR ud: UserData; flags: LONGINT): ComponentResult;
  1672.     {$IFC NOT GENERATINGCFM}
  1673.     INLINE $2F3C, $000C, $002C, $7000, $A82A;
  1674.     {$ENDC}
  1675. FUNCTION SGGetMode(s: SeqGrabComponent; VAR previewMode: BOOLEAN; VAR recordMode: BOOLEAN): ComponentResult;
  1676.     {$IFC NOT GENERATINGCFM}
  1677.     INLINE $2F3C, $0008, $002D, $7000, $A82A;
  1678.     {$ENDC}
  1679. FUNCTION SGSetDataRef(s: SeqGrabComponent; dataRef: Handle; dataRefType: OSType; whereFlags: LONGINT): ComponentResult;
  1680.     {$IFC NOT GENERATINGCFM}
  1681.     INLINE $2F3C, $000C, $002E, $7000, $A82A;
  1682.     {$ENDC}
  1683. FUNCTION SGGetDataRef(s: SeqGrabComponent; VAR dataRef: Handle; VAR dataRefType: OSType; VAR whereFlags: LONGINT): ComponentResult;
  1684.     {$IFC NOT GENERATINGCFM}
  1685.     INLINE $2F3C, $000C, $002F, $7000, $A82A;
  1686.     {$ENDC}
  1687. FUNCTION SGNewOutput(s: SeqGrabComponent; dataRef: Handle; dataRefType: OSType; whereFlags: LONGINT; VAR sgOut: SGOutput): ComponentResult;
  1688.     {$IFC NOT GENERATINGCFM}
  1689.     INLINE $2F3C, $0010, $0030, $7000, $A82A;
  1690.     {$ENDC}
  1691. FUNCTION SGDisposeOutput(s: SeqGrabComponent; sgOut: SGOutput): ComponentResult;
  1692.     {$IFC NOT GENERATINGCFM}
  1693.     INLINE $2F3C, $0004, $0031, $7000, $A82A;
  1694.     {$ENDC}
  1695. FUNCTION SGSetOutputFlags(s: SeqGrabComponent; sgOut: SGOutput; whereFlags: LONGINT): ComponentResult;
  1696.     {$IFC NOT GENERATINGCFM}
  1697.     INLINE $2F3C, $0008, $0032, $7000, $A82A;
  1698.     {$ENDC}
  1699. FUNCTION SGSetChannelOutput(s: SeqGrabComponent; c: SGChannel; sgOut: SGOutput): ComponentResult;
  1700.     {$IFC NOT GENERATINGCFM}
  1701.     INLINE $2F3C, $0008, $0033, $7000, $A82A;
  1702.     {$ENDC}
  1703. FUNCTION SGGetDataOutputStorageSpaceRemaining(s: SeqGrabComponent; sgOut: SGOutput; VAR space: LONGINT): ComponentResult;
  1704.     {$IFC NOT GENERATINGCFM}
  1705.     INLINE $2F3C, $0008, $0034, $7000, $A82A;
  1706.     {$ENDC}
  1707. FUNCTION SGHandleUpdateEvent(s: SeqGrabComponent; VAR event: EventRecord; VAR handled: BOOLEAN): ComponentResult;
  1708.     {$IFC NOT GENERATINGCFM}
  1709.     INLINE $2F3C, $0008, $0035, $7000, $A82A;
  1710.     {$ENDC}
  1711. {
  1712.     calls from Channel to seqGrab
  1713. }
  1714. FUNCTION SGWriteMovieData(s: SeqGrabComponent; c: SGChannel; p: Ptr; len: LONGINT; VAR offset: LONGINT): ComponentResult;
  1715.     {$IFC NOT GENERATINGCFM}
  1716.     INLINE $2F3C, $0010, $0100, $7000, $A82A;
  1717.     {$ENDC}
  1718. FUNCTION SGAddFrameReference(s: SeqGrabComponent; frameInfo: SeqGrabFrameInfoPtr): ComponentResult;
  1719.     {$IFC NOT GENERATINGCFM}
  1720.     INLINE $2F3C, $0004, $0101, $7000, $A82A;
  1721.     {$ENDC}
  1722. FUNCTION SGGetNextFrameReference(s: SeqGrabComponent; frameInfo: SeqGrabFrameInfoPtr; VAR frameDuration: TimeValue; VAR frameNumber: LONGINT): ComponentResult;
  1723.     {$IFC NOT GENERATINGCFM}
  1724.     INLINE $2F3C, $000C, $0102, $7000, $A82A;
  1725.     {$ENDC}
  1726. FUNCTION SGGetTimeBase(s: SeqGrabComponent; VAR tb: TimeBase): ComponentResult;
  1727.     {$IFC NOT GENERATINGCFM}
  1728.     INLINE $2F3C, $0004, $0103, $7000, $A82A;
  1729.     {$ENDC}
  1730. FUNCTION SGSortDeviceList(s: SeqGrabComponent; list: SGDeviceList): ComponentResult;
  1731.     {$IFC NOT GENERATINGCFM}
  1732.     INLINE $2F3C, $0004, $0104, $7000, $A82A;
  1733.     {$ENDC}
  1734. FUNCTION SGAddMovieData(s: SeqGrabComponent; c: SGChannel; p: Ptr; len: LONGINT; VAR offset: LONGINT; chRefCon: LONGINT; time: TimeValue; writeType: INTEGER): ComponentResult;
  1735.     {$IFC NOT GENERATINGCFM}
  1736.     INLINE $2F3C, $001A, $0105, $7000, $A82A;
  1737.     {$ENDC}
  1738. FUNCTION SGChangedSource(s: SeqGrabComponent; c: SGChannel): ComponentResult;
  1739.     {$IFC NOT GENERATINGCFM}
  1740.     INLINE $2F3C, $0004, $0106, $7000, $A82A;
  1741.     {$ENDC}
  1742. { ** Sequence Grab CHANNEL Component Stuff ** }
  1743. FUNCTION SGSetChannelUsage(c: SGChannel; usage: LONGINT): ComponentResult;
  1744.     {$IFC NOT GENERATINGCFM}
  1745.     INLINE $2F3C, $0004, $0080, $7000, $A82A;
  1746.     {$ENDC}
  1747. FUNCTION SGGetChannelUsage(c: SGChannel; VAR usage: LONGINT): ComponentResult;
  1748.     {$IFC NOT GENERATINGCFM}
  1749.     INLINE $2F3C, $0004, $0081, $7000, $A82A;
  1750.     {$ENDC}
  1751. FUNCTION SGSetChannelBounds(c: SGChannel; {CONST}VAR bounds: Rect): ComponentResult;
  1752.     {$IFC NOT GENERATINGCFM}
  1753.     INLINE $2F3C, $0004, $0082, $7000, $A82A;
  1754.     {$ENDC}
  1755. FUNCTION SGGetChannelBounds(c: SGChannel; VAR bounds: Rect): ComponentResult;
  1756.     {$IFC NOT GENERATINGCFM}
  1757.     INLINE $2F3C, $0004, $0083, $7000, $A82A;
  1758.     {$ENDC}
  1759. FUNCTION SGSetChannelVolume(c: SGChannel; volume: INTEGER): ComponentResult;
  1760.     {$IFC NOT GENERATINGCFM}
  1761.     INLINE $2F3C, $0002, $0084, $7000, $A82A;
  1762.     {$ENDC}
  1763. FUNCTION SGGetChannelVolume(c: SGChannel; VAR volume: INTEGER): ComponentResult;
  1764.     {$IFC NOT GENERATINGCFM}
  1765.     INLINE $2F3C, $0004, $0085, $7000, $A82A;
  1766.     {$ENDC}
  1767. FUNCTION SGGetChannelInfo(c: SGChannel; VAR channelInfo: LONGINT): ComponentResult;
  1768.     {$IFC NOT GENERATINGCFM}
  1769.     INLINE $2F3C, $0004, $0086, $7000, $A82A;
  1770.     {$ENDC}
  1771. FUNCTION SGSetChannelPlayFlags(c: SGChannel; playFlags: LONGINT): ComponentResult;
  1772.     {$IFC NOT GENERATINGCFM}
  1773.     INLINE $2F3C, $0004, $0087, $7000, $A82A;
  1774.     {$ENDC}
  1775. FUNCTION SGGetChannelPlayFlags(c: SGChannel; VAR playFlags: LONGINT): ComponentResult;
  1776.     {$IFC NOT GENERATINGCFM}
  1777.     INLINE $2F3C, $0004, $0088, $7000, $A82A;
  1778.     {$ENDC}
  1779. FUNCTION SGSetChannelMaxFrames(c: SGChannel; frameCount: LONGINT): ComponentResult;
  1780.     {$IFC NOT GENERATINGCFM}
  1781.     INLINE $2F3C, $0004, $0089, $7000, $A82A;
  1782.     {$ENDC}
  1783. FUNCTION SGGetChannelMaxFrames(c: SGChannel; VAR frameCount: LONGINT): ComponentResult;
  1784.     {$IFC NOT GENERATINGCFM}
  1785.     INLINE $2F3C, $0004, $008A, $7000, $A82A;
  1786.     {$ENDC}
  1787. FUNCTION SGSetChannelRefCon(c: SGChannel; refCon: LONGINT): ComponentResult;
  1788.     {$IFC NOT GENERATINGCFM}
  1789.     INLINE $2F3C, $0004, $008B, $7000, $A82A;
  1790.     {$ENDC}
  1791. FUNCTION SGSetChannelClip(c: SGChannel; theClip: RgnHandle): ComponentResult;
  1792.     {$IFC NOT GENERATINGCFM}
  1793.     INLINE $2F3C, $0004, $008C, $7000, $A82A;
  1794.     {$ENDC}
  1795. FUNCTION SGGetChannelClip(c: SGChannel; VAR theClip: RgnHandle): ComponentResult;
  1796.     {$IFC NOT GENERATINGCFM}
  1797.     INLINE $2F3C, $0004, $008D, $7000, $A82A;
  1798.     {$ENDC}
  1799. FUNCTION SGGetChannelSampleDescription(c: SGChannel; sampleDesc: Handle): ComponentResult;
  1800.     {$IFC NOT GENERATINGCFM}
  1801.     INLINE $2F3C, $0004, $008E, $7000, $A82A;
  1802.     {$ENDC}
  1803. FUNCTION SGGetChannelDeviceList(c: SGChannel; selectionFlags: LONGINT; VAR list: SGDeviceList): ComponentResult;
  1804.     {$IFC NOT GENERATINGCFM}
  1805.     INLINE $2F3C, $0008, $008F, $7000, $A82A;
  1806.     {$ENDC}
  1807. FUNCTION SGSetChannelDevice(c: SGChannel; name: StringPtr): ComponentResult;
  1808.     {$IFC NOT GENERATINGCFM}
  1809.     INLINE $2F3C, $0004, $0090, $7000, $A82A;
  1810.     {$ENDC}
  1811. FUNCTION SGSetChannelMatrix(c: SGChannel; {CONST}VAR m: MatrixRecord): ComponentResult;
  1812.     {$IFC NOT GENERATINGCFM}
  1813.     INLINE $2F3C, $0004, $0091, $7000, $A82A;
  1814.     {$ENDC}
  1815. FUNCTION SGGetChannelMatrix(c: SGChannel; VAR m: MatrixRecord): ComponentResult;
  1816.     {$IFC NOT GENERATINGCFM}
  1817.     INLINE $2F3C, $0004, $0092, $7000, $A82A;
  1818.     {$ENDC}
  1819. FUNCTION SGGetChannelTimeScale(c: SGChannel; VAR scale: TimeScale): ComponentResult;
  1820.     {$IFC NOT GENERATINGCFM}
  1821.     INLINE $2F3C, $0004, $0093, $7000, $A82A;
  1822.     {$ENDC}
  1823. FUNCTION SGChannelPutPicture(c: SGChannel): ComponentResult;
  1824.     {$IFC NOT GENERATINGCFM}
  1825.     INLINE $2F3C, $0000, $0094, $7000, $A82A;
  1826.     {$ENDC}
  1827. FUNCTION SGChannelSetRequestedDataRate(c: SGChannel; bytesPerSecond: LONGINT): ComponentResult;
  1828.     {$IFC NOT GENERATINGCFM}
  1829.     INLINE $2F3C, $0004, $0095, $7000, $A82A;
  1830.     {$ENDC}
  1831. FUNCTION SGChannelGetRequestedDataRate(c: SGChannel; VAR bytesPerSecond: LONGINT): ComponentResult;
  1832.     {$IFC NOT GENERATINGCFM}
  1833.     INLINE $2F3C, $0004, $0096, $7000, $A82A;
  1834.     {$ENDC}
  1835. FUNCTION SGChannelSetDataSourceName(c: SGChannel; name: Str255; scriptTag: ScriptCode): ComponentResult;
  1836.     {$IFC NOT GENERATINGCFM}
  1837.     INLINE $2F3C, $0006, $0097, $7000, $A82A;
  1838.     {$ENDC}
  1839. FUNCTION SGChannelGetDataSourceName(c: SGChannel; VAR name: Str255; VAR scriptTag: ScriptCode): ComponentResult;
  1840.     {$IFC NOT GENERATINGCFM}
  1841.     INLINE $2F3C, $0008, $0098, $7000, $A82A;
  1842.     {$ENDC}
  1843. {
  1844.     calls from seqGrab to Channel
  1845. }
  1846. FUNCTION SGInitChannel(c: SGChannel; owner: SeqGrabComponent): ComponentResult;
  1847.     {$IFC NOT GENERATINGCFM}
  1848.     INLINE $2F3C, $0004, $0180, $7000, $A82A;
  1849.     {$ENDC}
  1850. FUNCTION SGWriteSamples(c: SGChannel; m: Movie; theFile: AliasHandle): ComponentResult;
  1851.     {$IFC NOT GENERATINGCFM}
  1852.     INLINE $2F3C, $0008, $0181, $7000, $A82A;
  1853.     {$ENDC}
  1854. FUNCTION SGGetDataRate(c: SGChannel; VAR bytesPerSecond: LONGINT): ComponentResult;
  1855.     {$IFC NOT GENERATINGCFM}
  1856.     INLINE $2F3C, $0004, $0182, $7000, $A82A;
  1857.     {$ENDC}
  1858. FUNCTION SGAlignChannelRect(c: SGChannel; VAR r: Rect): ComponentResult;
  1859.     {$IFC NOT GENERATINGCFM}
  1860.     INLINE $2F3C, $0004, $0183, $7000, $A82A;
  1861.     {$ENDC}
  1862. {
  1863.     Dorky dialog panel calls
  1864. }
  1865. FUNCTION SGPanelGetDitl(s: SeqGrabComponent; VAR ditl: Handle): ComponentResult;
  1866.     {$IFC NOT GENERATINGCFM}
  1867.     INLINE $2F3C, $0004, $0200, $7000, $A82A;
  1868.     {$ENDC}
  1869. FUNCTION SGPanelGetTitle(s: SeqGrabComponent; VAR title: Str255): ComponentResult;
  1870.     {$IFC NOT GENERATINGCFM}
  1871.     INLINE $2F3C, $0004, $0201, $7000, $A82A;
  1872.     {$ENDC}
  1873. FUNCTION SGPanelCanRun(s: SeqGrabComponent; c: SGChannel): ComponentResult;
  1874.     {$IFC NOT GENERATINGCFM}
  1875.     INLINE $2F3C, $0004, $0202, $7000, $A82A;
  1876.     {$ENDC}
  1877. FUNCTION SGPanelInstall(s: SeqGrabComponent; c: SGChannel; d: DialogPtr; itemOffset: INTEGER): ComponentResult;
  1878.     {$IFC NOT GENERATINGCFM}
  1879.     INLINE $2F3C, $000A, $0203, $7000, $A82A;
  1880.     {$ENDC}
  1881. FUNCTION SGPanelEvent(s: SeqGrabComponent; c: SGChannel; d: DialogPtr; itemOffset: INTEGER; VAR theEvent: EventRecord; VAR itemHit: INTEGER; VAR handled: BOOLEAN): ComponentResult;
  1882.     {$IFC NOT GENERATINGCFM}
  1883.     INLINE $2F3C, $0016, $0204, $7000, $A82A;
  1884.     {$ENDC}
  1885. FUNCTION SGPanelItem(s: SeqGrabComponent; c: SGChannel; d: DialogPtr; itemOffset: INTEGER; itemNum: INTEGER): ComponentResult;
  1886.     {$IFC NOT GENERATINGCFM}
  1887.     INLINE $2F3C, $000C, $0205, $7000, $A82A;
  1888.     {$ENDC}
  1889. FUNCTION SGPanelRemove(s: SeqGrabComponent; c: SGChannel; d: DialogPtr; itemOffset: INTEGER): ComponentResult;
  1890.     {$IFC NOT GENERATINGCFM}
  1891.     INLINE $2F3C, $000A, $0206, $7000, $A82A;
  1892.     {$ENDC}
  1893. FUNCTION SGPanelSetGrabber(s: SeqGrabComponent; sg: SeqGrabComponent): ComponentResult;
  1894.     {$IFC NOT GENERATINGCFM}
  1895.     INLINE $2F3C, $0004, $0207, $7000, $A82A;
  1896.     {$ENDC}
  1897. FUNCTION SGPanelSetResFile(s: SeqGrabComponent; resRef: INTEGER): ComponentResult;
  1898.     {$IFC NOT GENERATINGCFM}
  1899.     INLINE $2F3C, $0002, $0208, $7000, $A82A;
  1900.     {$ENDC}
  1901. FUNCTION SGPanelGetSettings(s: SeqGrabComponent; c: SGChannel; VAR ud: UserData; flags: LONGINT): ComponentResult;
  1902.     {$IFC NOT GENERATINGCFM}
  1903.     INLINE $2F3C, $000C, $0209, $7000, $A82A;
  1904.     {$ENDC}
  1905. FUNCTION SGPanelSetSettings(s: SeqGrabComponent; c: SGChannel; ud: UserData; flags: LONGINT): ComponentResult;
  1906.     {$IFC NOT GENERATINGCFM}
  1907.     INLINE $2F3C, $000C, $020A, $7000, $A82A;
  1908.     {$ENDC}
  1909. FUNCTION SGPanelValidateInput(s: SeqGrabComponent; VAR ok: BOOLEAN): ComponentResult;
  1910.     {$IFC NOT GENERATINGCFM}
  1911.     INLINE $2F3C, $0004, $020B, $7000, $A82A;
  1912.     {$ENDC}
  1913. FUNCTION SGPanelSetEventFilter(s: SeqGrabComponent; proc: SGModalFilterUPP; refCon: LONGINT): ComponentResult;
  1914.     {$IFC NOT GENERATINGCFM}
  1915.     INLINE $2F3C, $0008, $020C, $7000, $A82A;
  1916.     {$ENDC}
  1917. { ** Sequence Grab VIDEO CHANNEL Component Stuff ** }
  1918. {
  1919.     Video stuff
  1920. }
  1921.  
  1922. TYPE
  1923.     SGCompressInfoPtr = ^SGCompressInfo;
  1924.     SGCompressInfo = RECORD
  1925.         buffer:                    Ptr;
  1926.         bufferSize:                LONGINT;
  1927.         similarity:                SInt8;
  1928.         reserved:                SInt8;
  1929.     END;
  1930.  
  1931.     SGGrabBottleProcPtr = ProcPtr;  { FUNCTION SGGrabBottle(c: SGChannel; bufferNum: INTEGER; refCon: LONGINT): ComponentResult; }
  1932.  
  1933.     SGGrabCompleteBottleProcPtr = ProcPtr;  { FUNCTION SGGrabCompleteBottle(c: SGChannel; bufferNum: INTEGER; VAR done: BOOLEAN; refCon: LONGINT): ComponentResult; }
  1934.  
  1935.     SGDisplayBottleProcPtr = ProcPtr;  { FUNCTION SGDisplayBottle(c: SGChannel; bufferNum: INTEGER; VAR mp: MatrixRecord; clipRgn: RgnHandle; refCon: LONGINT): ComponentResult; }
  1936.  
  1937.     SGCompressBottleProcPtr = ProcPtr;  { FUNCTION SGCompressBottle(c: SGChannel; bufferNum: INTEGER; refCon: LONGINT): ComponentResult; }
  1938.  
  1939.     SGCompressCompleteBottleProcPtr = ProcPtr;  { FUNCTION SGCompressCompleteBottle(c: SGChannel; bufferNum: INTEGER; VAR done: BOOLEAN; VAR ci: SGCompressInfo; refCon: LONGINT): ComponentResult; }
  1940.  
  1941.     SGAddFrameBottleProcPtr = ProcPtr;  { FUNCTION SGAddFrameBottle(c: SGChannel; bufferNum: INTEGER; atTime: TimeValue; scale: TimeScale; (CONST)VAR ci: SGCompressInfo; refCon: LONGINT): ComponentResult; }
  1942.  
  1943.     SGTransferFrameBottleProcPtr = ProcPtr;  { FUNCTION SGTransferFrameBottle(c: SGChannel; bufferNum: INTEGER; VAR mp: MatrixRecord; clipRgn: RgnHandle; refCon: LONGINT): ComponentResult; }
  1944.  
  1945.     SGGrabCompressCompleteBottleProcPtr = ProcPtr;  { FUNCTION SGGrabCompressCompleteBottle(c: SGChannel; VAR done: BOOLEAN; VAR ci: SGCompressInfo; VAR t: TimeRecord; refCon: LONGINT): ComponentResult; }
  1946.  
  1947.     SGDisplayCompressBottleProcPtr = ProcPtr;  { FUNCTION SGDisplayCompressBottle(c: SGChannel; dataPtr: Ptr; desc: ImageDescriptionHandle; VAR mp: MatrixRecord; clipRgn: RgnHandle; refCon: LONGINT): ComponentResult; }
  1948.  
  1949.     SGGrabBottleUPP = UniversalProcPtr;
  1950.     SGGrabCompleteBottleUPP = UniversalProcPtr;
  1951.     SGDisplayBottleUPP = UniversalProcPtr;
  1952.     SGCompressBottleUPP = UniversalProcPtr;
  1953.     SGCompressCompleteBottleUPP = UniversalProcPtr;
  1954.     SGAddFrameBottleUPP = UniversalProcPtr;
  1955.     SGTransferFrameBottleUPP = UniversalProcPtr;
  1956.     SGGrabCompressCompleteBottleUPP = UniversalProcPtr;
  1957.     SGDisplayCompressBottleUPP = UniversalProcPtr;
  1958.     VideoBottlesPtr = ^VideoBottles;
  1959.     VideoBottles = RECORD
  1960.         procCount:                INTEGER;
  1961.         grabProc:                SGGrabBottleUPP;
  1962.         grabCompleteProc:        SGGrabCompleteBottleUPP;
  1963.         displayProc:            SGDisplayBottleUPP;
  1964.         compressProc:            SGCompressBottleUPP;
  1965.         compressCompleteProc:    SGCompressCompleteBottleUPP;
  1966.         addFrameProc:            SGAddFrameBottleUPP;
  1967.         transferFrameProc:        SGTransferFrameBottleUPP;
  1968.         grabCompressCompleteProc: SGGrabCompressCompleteBottleUPP;
  1969.         displayCompressProc:    SGDisplayCompressBottleUPP;
  1970.     END;
  1971.  
  1972. FUNCTION SGGetSrcVideoBounds(c: SGChannel; VAR r: Rect): ComponentResult;
  1973.     {$IFC NOT GENERATINGCFM}
  1974.     INLINE $2F3C, $0004, $0100, $7000, $A82A;
  1975.     {$ENDC}
  1976. FUNCTION SGSetVideoRect(c: SGChannel; {CONST}VAR r: Rect): ComponentResult;
  1977.     {$IFC NOT GENERATINGCFM}
  1978.     INLINE $2F3C, $0004, $0101, $7000, $A82A;
  1979.     {$ENDC}
  1980. FUNCTION SGGetVideoRect(c: SGChannel; VAR r: Rect): ComponentResult;
  1981.     {$IFC NOT GENERATINGCFM}
  1982.     INLINE $2F3C, $0004, $0102, $7000, $A82A;
  1983.     {$ENDC}
  1984. FUNCTION SGGetVideoCompressorType(c: SGChannel; VAR compressorType: OSType): ComponentResult;
  1985.     {$IFC NOT GENERATINGCFM}
  1986.     INLINE $2F3C, $0004, $0103, $7000, $A82A;
  1987.     {$ENDC}
  1988. FUNCTION SGSetVideoCompressorType(c: SGChannel; compressorType: OSType): ComponentResult;
  1989.     {$IFC NOT GENERATINGCFM}
  1990.     INLINE $2F3C, $0004, $0104, $7000, $A82A;
  1991.     {$ENDC}
  1992. FUNCTION SGSetVideoCompressor(c: SGChannel; depth: INTEGER; compressor: CompressorComponent; spatialQuality: CodecQ; temporalQuality: CodecQ; keyFrameRate: LONGINT): ComponentResult;
  1993.     {$IFC NOT GENERATINGCFM}
  1994.     INLINE $2F3C, $0012, $0105, $7000, $A82A;
  1995.     {$ENDC}
  1996. FUNCTION SGGetVideoCompressor(c: SGChannel; VAR depth: INTEGER; VAR compressor: CompressorComponent; VAR spatialQuality: CodecQ; VAR temporalQuality: CodecQ; VAR keyFrameRate: LONGINT): ComponentResult;
  1997.     {$IFC NOT GENERATINGCFM}
  1998.     INLINE $2F3C, $0014, $0106, $7000, $A82A;
  1999.     {$ENDC}
  2000. FUNCTION SGGetVideoDigitizerComponent(c: SGChannel): ComponentInstance;
  2001.     {$IFC NOT GENERATINGCFM}
  2002.     INLINE $2F3C, $0000, $0107, $7000, $A82A;
  2003.     {$ENDC}
  2004. FUNCTION SGSetVideoDigitizerComponent(c: SGChannel; vdig: ComponentInstance): ComponentResult;
  2005.     {$IFC NOT GENERATINGCFM}
  2006.     INLINE $2F3C, $0004, $0108, $7000, $A82A;
  2007.     {$ENDC}
  2008. FUNCTION SGVideoDigitizerChanged(c: SGChannel): ComponentResult;
  2009.     {$IFC NOT GENERATINGCFM}
  2010.     INLINE $2F3C, $0000, $0109, $7000, $A82A;
  2011.     {$ENDC}
  2012. FUNCTION SGSetVideoBottlenecks(c: SGChannel; VAR vb: VideoBottles): ComponentResult;
  2013.     {$IFC NOT GENERATINGCFM}
  2014.     INLINE $2F3C, $0004, $010A, $7000, $A82A;
  2015.     {$ENDC}
  2016. FUNCTION SGGetVideoBottlenecks(c: SGChannel; VAR vb: VideoBottles): ComponentResult;
  2017.     {$IFC NOT GENERATINGCFM}
  2018.     INLINE $2F3C, $0004, $010B, $7000, $A82A;
  2019.     {$ENDC}
  2020. FUNCTION SGGrabFrame(c: SGChannel; bufferNum: INTEGER): ComponentResult;
  2021.     {$IFC NOT GENERATINGCFM}
  2022.     INLINE $2F3C, $0002, $010C, $7000, $A82A;
  2023.     {$ENDC}
  2024. FUNCTION SGGrabFrameComplete(c: SGChannel; bufferNum: INTEGER; VAR done: BOOLEAN): ComponentResult;
  2025.     {$IFC NOT GENERATINGCFM}
  2026.     INLINE $2F3C, $0006, $010D, $7000, $A82A;
  2027.     {$ENDC}
  2028. FUNCTION SGDisplayFrame(c: SGChannel; bufferNum: INTEGER; {CONST}VAR mp: MatrixRecord; clipRgn: RgnHandle): ComponentResult;
  2029.     {$IFC NOT GENERATINGCFM}
  2030.     INLINE $2F3C, $000A, $010E, $7000, $A82A;
  2031.     {$ENDC}
  2032. FUNCTION SGCompressFrame(c: SGChannel; bufferNum: INTEGER): ComponentResult;
  2033.     {$IFC NOT GENERATINGCFM}
  2034.     INLINE $2F3C, $0002, $010F, $7000, $A82A;
  2035.     {$ENDC}
  2036. FUNCTION SGCompressFrameComplete(c: SGChannel; bufferNum: INTEGER; VAR done: BOOLEAN; VAR ci: SGCompressInfo): ComponentResult;
  2037.     {$IFC NOT GENERATINGCFM}
  2038.     INLINE $2F3C, $000A, $0110, $7000, $A82A;
  2039.     {$ENDC}
  2040. FUNCTION SGAddFrame(c: SGChannel; bufferNum: INTEGER; atTime: TimeValue; scale: TimeScale; {CONST}VAR ci: SGCompressInfo): ComponentResult;
  2041.     {$IFC NOT GENERATINGCFM}
  2042.     INLINE $2F3C, $000E, $0111, $7000, $A82A;
  2043.     {$ENDC}
  2044. FUNCTION SGTransferFrameForCompress(c: SGChannel; bufferNum: INTEGER; {CONST}VAR mp: MatrixRecord; clipRgn: RgnHandle): ComponentResult;
  2045.     {$IFC NOT GENERATINGCFM}
  2046.     INLINE $2F3C, $000A, $0112, $7000, $A82A;
  2047.     {$ENDC}
  2048. FUNCTION SGSetCompressBuffer(c: SGChannel; depth: INTEGER; {CONST}VAR compressSize: Rect): ComponentResult;
  2049.     {$IFC NOT GENERATINGCFM}
  2050.     INLINE $2F3C, $0006, $0113, $7000, $A82A;
  2051.     {$ENDC}
  2052. FUNCTION SGGetCompressBuffer(c: SGChannel; VAR depth: INTEGER; VAR compressSize: Rect): ComponentResult;
  2053.     {$IFC NOT GENERATINGCFM}
  2054.     INLINE $2F3C, $0008, $0114, $7000, $A82A;
  2055.     {$ENDC}
  2056. FUNCTION SGGetBufferInfo(c: SGChannel; bufferNum: INTEGER; VAR bufferPM: PixMapHandle; VAR bufferRect: Rect; VAR compressBuffer: GWorldPtr; VAR compressBufferRect: Rect): ComponentResult;
  2057.     {$IFC NOT GENERATINGCFM}
  2058.     INLINE $2F3C, $0012, $0115, $7000, $A82A;
  2059.     {$ENDC}
  2060. FUNCTION SGSetUseScreenBuffer(c: SGChannel; useScreenBuffer: BOOLEAN): ComponentResult;
  2061.     {$IFC NOT GENERATINGCFM}
  2062.     INLINE $2F3C, $0002, $0116, $7000, $A82A;
  2063.     {$ENDC}
  2064. FUNCTION SGGetUseScreenBuffer(c: SGChannel; VAR useScreenBuffer: BOOLEAN): ComponentResult;
  2065.     {$IFC NOT GENERATINGCFM}
  2066.     INLINE $2F3C, $0004, $0117, $7000, $A82A;
  2067.     {$ENDC}
  2068. FUNCTION SGGrabCompressComplete(c: SGChannel; VAR done: BOOLEAN; VAR ci: SGCompressInfo; VAR tr: TimeRecord): ComponentResult;
  2069.     {$IFC NOT GENERATINGCFM}
  2070.     INLINE $2F3C, $000C, $0118, $7000, $A82A;
  2071.     {$ENDC}
  2072. FUNCTION SGDisplayCompress(c: SGChannel; dataPtr: Ptr; desc: ImageDescriptionHandle; VAR mp: MatrixRecord; clipRgn: RgnHandle): ComponentResult;
  2073.     {$IFC NOT GENERATINGCFM}
  2074.     INLINE $2F3C, $0010, $0119, $7000, $A82A;
  2075.     {$ENDC}
  2076. FUNCTION SGSetFrameRate(c: SGChannel; frameRate: Fixed): ComponentResult;
  2077.     {$IFC NOT GENERATINGCFM}
  2078.     INLINE $2F3C, $0004, $011A, $7000, $A82A;
  2079.     {$ENDC}
  2080. FUNCTION SGGetFrameRate(c: SGChannel; VAR frameRate: Fixed): ComponentResult;
  2081.     {$IFC NOT GENERATINGCFM}
  2082.     INLINE $2F3C, $0004, $011B, $7000, $A82A;
  2083.     {$ENDC}
  2084. FUNCTION SGSetPreferredPacketSize(c: SGChannel; preferredPacketSizeInBytes: LONGINT): ComponentResult;
  2085.     {$IFC NOT GENERATINGCFM}
  2086.     INLINE $2F3C, $0004, $0121, $7000, $A82A;
  2087.     {$ENDC}
  2088. FUNCTION SGGetPreferredPacketSize(c: SGChannel; VAR preferredPacketSizeInBytes: LONGINT): ComponentResult;
  2089.     {$IFC NOT GENERATINGCFM}
  2090.     INLINE $2F3C, $0004, $0122, $7000, $A82A;
  2091.     {$ENDC}
  2092. FUNCTION SGSetUserVideoCompressorList(c: SGChannel; compressorTypes: Handle): ComponentResult;
  2093.     {$IFC NOT GENERATINGCFM}
  2094.     INLINE $2F3C, $0004, $0123, $7000, $A82A;
  2095.     {$ENDC}
  2096. FUNCTION SGGetUserVideoCompressorList(c: SGChannel; VAR compressorTypes: Handle): ComponentResult;
  2097.     {$IFC NOT GENERATINGCFM}
  2098.     INLINE $2F3C, $0004, $0124, $7000, $A82A;
  2099.     {$ENDC}
  2100. { ** Sequence Grab SOUND CHANNEL Component Stuff ** }
  2101. {
  2102.     Sound stuff
  2103. }
  2104. FUNCTION SGSetSoundInputDriver(c: SGChannel; driverName: Str255): ComponentResult;
  2105.     {$IFC NOT GENERATINGCFM}
  2106.     INLINE $2F3C, $0004, $0100, $7000, $A82A;
  2107.     {$ENDC}
  2108. FUNCTION SGGetSoundInputDriver(c: SGChannel): LONGINT;
  2109.     {$IFC NOT GENERATINGCFM}
  2110.     INLINE $2F3C, $0000, $0101, $7000, $A82A;
  2111.     {$ENDC}
  2112. FUNCTION SGSoundInputDriverChanged(c: SGChannel): ComponentResult;
  2113.     {$IFC NOT GENERATINGCFM}
  2114.     INLINE $2F3C, $0000, $0102, $7000, $A82A;
  2115.     {$ENDC}
  2116. FUNCTION SGSetSoundRecordChunkSize(c: SGChannel; seconds: LONGINT): ComponentResult;
  2117.     {$IFC NOT GENERATINGCFM}
  2118.     INLINE $2F3C, $0004, $0103, $7000, $A82A;
  2119.     {$ENDC}
  2120. FUNCTION SGGetSoundRecordChunkSize(c: SGChannel): LONGINT;
  2121.     {$IFC NOT GENERATINGCFM}
  2122.     INLINE $2F3C, $0000, $0104, $7000, $A82A;
  2123.     {$ENDC}
  2124. FUNCTION SGSetSoundInputRate(c: SGChannel; rate: Fixed): ComponentResult;
  2125.     {$IFC NOT GENERATINGCFM}
  2126.     INLINE $2F3C, $0004, $0105, $7000, $A82A;
  2127.     {$ENDC}
  2128. FUNCTION SGGetSoundInputRate(c: SGChannel): Fixed;
  2129.     {$IFC NOT GENERATINGCFM}
  2130.     INLINE $2F3C, $0000, $0106, $7000, $A82A;
  2131.     {$ENDC}
  2132. FUNCTION SGSetSoundInputParameters(c: SGChannel; sampleSize: INTEGER; numChannels: INTEGER; compressionType: OSType): ComponentResult;
  2133.     {$IFC NOT GENERATINGCFM}
  2134.     INLINE $2F3C, $0008, $0107, $7000, $A82A;
  2135.     {$ENDC}
  2136. FUNCTION SGGetSoundInputParameters(c: SGChannel; VAR sampleSize: INTEGER; VAR numChannels: INTEGER; VAR compressionType: OSType): ComponentResult;
  2137.     {$IFC NOT GENERATINGCFM}
  2138.     INLINE $2F3C, $000C, $0108, $7000, $A82A;
  2139.     {$ENDC}
  2140. FUNCTION SGSetAdditionalSoundRates(c: SGChannel; rates: Handle): ComponentResult;
  2141.     {$IFC NOT GENERATINGCFM}
  2142.     INLINE $2F3C, $0004, $0109, $7000, $A82A;
  2143.     {$ENDC}
  2144. FUNCTION SGGetAdditionalSoundRates(c: SGChannel; VAR rates: Handle): ComponentResult;
  2145.     {$IFC NOT GENERATINGCFM}
  2146.     INLINE $2F3C, $0004, $010A, $7000, $A82A;
  2147.     {$ENDC}
  2148. {
  2149.     Text stuff
  2150. }
  2151. FUNCTION SGSetFontName(c: SGChannel; pstr: StringPtr): ComponentResult;
  2152.     {$IFC NOT GENERATINGCFM}
  2153.     INLINE $2F3C, $0004, $0100, $7000, $A82A;
  2154.     {$ENDC}
  2155. FUNCTION SGSetFontSize(c: SGChannel; fontSize: INTEGER): ComponentResult;
  2156.     {$IFC NOT GENERATINGCFM}
  2157.     INLINE $2F3C, $0002, $0101, $7000, $A82A;
  2158.     {$ENDC}
  2159. FUNCTION SGSetTextForeColor(c: SGChannel; VAR theColor: RGBColor): ComponentResult;
  2160.     {$IFC NOT GENERATINGCFM}
  2161.     INLINE $2F3C, $0004, $0102, $7000, $A82A;
  2162.     {$ENDC}
  2163. FUNCTION SGSetTextBackColor(c: SGChannel; VAR theColor: RGBColor): ComponentResult;
  2164.     {$IFC NOT GENERATINGCFM}
  2165.     INLINE $2F3C, $0004, $0103, $7000, $A82A;
  2166.     {$ENDC}
  2167. FUNCTION SGSetJustification(c: SGChannel; just: INTEGER): ComponentResult;
  2168.     {$IFC NOT GENERATINGCFM}
  2169.     INLINE $2F3C, $0002, $0104, $7000, $A82A;
  2170.     {$ENDC}
  2171. FUNCTION SGGetTextReturnToSpaceValue(c: SGChannel; VAR rettospace: INTEGER): ComponentResult;
  2172.     {$IFC NOT GENERATINGCFM}
  2173.     INLINE $2F3C, $0004, $0105, $7000, $A82A;
  2174.     {$ENDC}
  2175. FUNCTION SGSetTextReturnToSpaceValue(c: SGChannel; rettospace: INTEGER): ComponentResult;
  2176.     {$IFC NOT GENERATINGCFM}
  2177.     INLINE $2F3C, $0002, $0106, $7000, $A82A;
  2178.     {$ENDC}
  2179. {
  2180.     Music stuff
  2181. }
  2182. FUNCTION SGGetInstrument(c: SGChannel; VAR td: ToneDescription): ComponentResult;
  2183.     {$IFC NOT GENERATINGCFM}
  2184.     INLINE $2F3C, $0004, $0100, $7000, $A82A;
  2185.     {$ENDC}
  2186. FUNCTION SGSetInstrument(c: SGChannel; VAR td: ToneDescription): ComponentResult;
  2187.     {$IFC NOT GENERATINGCFM}
  2188.     INLINE $2F3C, $0004, $0101, $7000, $A82A;
  2189.     {$ENDC}
  2190.  
  2191. CONST
  2192.     sgChannelAtom                = 'chan';
  2193.     sgChannelSettingsAtom        = 'ctom';
  2194.     sgChannelDescription        = 'cdsc';
  2195.     sgChannelSettings            = 'cset';
  2196.  
  2197.     sgDeviceNameType            = 'name';
  2198.     sgUsageType                    = 'use ';
  2199.     sgPlayFlagsType                = 'plyf';
  2200.     sgClipType                    = 'clip';
  2201.     sgMatrixType                = 'mtrx';
  2202.     sgVolumeType                = 'volu';
  2203.  
  2204.     sgPanelSettingsAtom            = 'ptom';
  2205.     sgPanelDescription            = 'pdsc';
  2206.     sgPanelSettings                = 'pset';
  2207.  
  2208.     sgcSoundCompressionType        = 'scmp';
  2209.     sgcSoundSampleRateType        = 'srat';
  2210.     sgcSoundChannelCountType    = 'schn';
  2211.     sgcSoundSampleSizeType        = 'ssiz';
  2212.     sgcSoundInputType            = 'sinp';
  2213.     sgcSoundGainType            = 'gain';
  2214.  
  2215.     sgcVideoHueType                = 'hue ';
  2216.     sgcVideoSaturationType        = 'satr';
  2217.     sgcVideoContrastType        = 'trst';
  2218.     sgcVideoSharpnessType        = 'shrp';
  2219.     sgcVideoBrigtnessType        = 'brit';
  2220.     sgcVideoBlackLevelType        = 'blkl';
  2221.     sgcVideoWhiteLevelType        = 'whtl';
  2222.     sgcVideoInputType            = 'vinp';
  2223.     sgcVideoFormatType            = 'vstd';
  2224.     sgcVideoFilterType            = 'vflt';
  2225.     sgcVideoRectType            = 'vrct';
  2226.     sgcVideoDigitizerType        = 'vdig';
  2227.  
  2228. {  UPP call backs  }
  2229.     uppSCModalFilterProcInfo = $00003FD0;
  2230.     uppSCModalHookProcInfo = $00003EE0;
  2231.     uppTweenerDataProcInfo = $003FFFF0;
  2232.     uppDataHCompletionProcInfo = $00000BC0;
  2233.     uppVdigIntProcInfo = $000003C0;
  2234.     uppSGDataProcInfo = $003BFFE0;
  2235.     uppSGModalFilterProcInfo = $00003FD0;
  2236.     uppSGGrabBottleProcInfo = $00000EF0;
  2237.     uppSGGrabCompleteBottleProcInfo = $00003EF0;
  2238.     uppSGDisplayBottleProcInfo = $0000FEF0;
  2239.     uppSGCompressBottleProcInfo = $00000EF0;
  2240.     uppSGCompressCompleteBottleProcInfo = $0000FEF0;
  2241.     uppSGAddFrameBottleProcInfo = $0003FEF0;
  2242.     uppSGTransferFrameBottleProcInfo = $0000FEF0;
  2243.     uppSGGrabCompressCompleteBottleProcInfo = $0000FFF0;
  2244.     uppSGDisplayCompressBottleProcInfo = $0003FFF0;
  2245.  
  2246. FUNCTION NewSCModalFilterProc(userRoutine: SCModalFilterProcPtr): SCModalFilterUPP;
  2247.     {$IFC NOT GENERATINGCFM }
  2248.     INLINE $2E9F;
  2249.     {$ENDC}
  2250.  
  2251. FUNCTION NewSCModalHookProc(userRoutine: SCModalHookProcPtr): SCModalHookUPP;
  2252.     {$IFC NOT GENERATINGCFM }
  2253.     INLINE $2E9F;
  2254.     {$ENDC}
  2255.  
  2256. FUNCTION NewTweenerDataProc(userRoutine: TweenerDataProcPtr): TweenerDataUPP;
  2257.     {$IFC NOT GENERATINGCFM }
  2258.     INLINE $2E9F;
  2259.     {$ENDC}
  2260.  
  2261. FUNCTION NewDataHCompletionProc(userRoutine: DataHCompletionProcPtr): DataHCompletionUPP;
  2262.     {$IFC NOT GENERATINGCFM }
  2263.     INLINE $2E9F;
  2264.     {$ENDC}
  2265.  
  2266. FUNCTION NewVdigIntProc(userRoutine: VdigIntProcPtr): VdigIntUPP;
  2267.     {$IFC NOT GENERATINGCFM }
  2268.     INLINE $2E9F;
  2269.     {$ENDC}
  2270.  
  2271. FUNCTION NewSGDataProc(userRoutine: SGDataProcPtr): SGDataUPP;
  2272.     {$IFC NOT GENERATINGCFM }
  2273.     INLINE $2E9F;
  2274.     {$ENDC}
  2275.  
  2276. FUNCTION NewSGModalFilterProc(userRoutine: SGModalFilterProcPtr): SGModalFilterUPP;
  2277.     {$IFC NOT GENERATINGCFM }
  2278.     INLINE $2E9F;
  2279.     {$ENDC}
  2280.  
  2281. FUNCTION NewSGGrabBottleProc(userRoutine: SGGrabBottleProcPtr): SGGrabBottleUPP;
  2282.     {$IFC NOT GENERATINGCFM }
  2283.     INLINE $2E9F;
  2284.     {$ENDC}
  2285.  
  2286. FUNCTION NewSGGrabCompleteBottleProc(userRoutine: SGGrabCompleteBottleProcPtr): SGGrabCompleteBottleUPP;
  2287.     {$IFC NOT GENERATINGCFM }
  2288.     INLINE $2E9F;
  2289.     {$ENDC}
  2290.  
  2291. FUNCTION NewSGDisplayBottleProc(userRoutine: SGDisplayBottleProcPtr): SGDisplayBottleUPP;
  2292.     {$IFC NOT GENERATINGCFM }
  2293.     INLINE $2E9F;
  2294.     {$ENDC}
  2295.  
  2296. FUNCTION NewSGCompressBottleProc(userRoutine: SGCompressBottleProcPtr): SGCompressBottleUPP;
  2297.     {$IFC NOT GENERATINGCFM }
  2298.     INLINE $2E9F;
  2299.     {$ENDC}
  2300.  
  2301. FUNCTION NewSGCompressCompleteBottleProc(userRoutine: SGCompressCompleteBottleProcPtr): SGCompressCompleteBottleUPP;
  2302.     {$IFC NOT GENERATINGCFM }
  2303.     INLINE $2E9F;
  2304.     {$ENDC}
  2305.  
  2306. FUNCTION NewSGAddFrameBottleProc(userRoutine: SGAddFrameBottleProcPtr): SGAddFrameBottleUPP;
  2307.     {$IFC NOT GENERATINGCFM }
  2308.     INLINE $2E9F;
  2309.     {$ENDC}
  2310.  
  2311. FUNCTION NewSGTransferFrameBottleProc(userRoutine: SGTransferFrameBottleProcPtr): SGTransferFrameBottleUPP;
  2312.     {$IFC NOT GENERATINGCFM }
  2313.     INLINE $2E9F;
  2314.     {$ENDC}
  2315.  
  2316. FUNCTION NewSGGrabCompressCompleteBottleProc(userRoutine: SGGrabCompressCompleteBottleProcPtr): SGGrabCompressCompleteBottleUPP;
  2317.     {$IFC NOT GENERATINGCFM }
  2318.     INLINE $2E9F;
  2319.     {$ENDC}
  2320.  
  2321. FUNCTION NewSGDisplayCompressBottleProc(userRoutine: SGDisplayCompressBottleProcPtr): SGDisplayCompressBottleUPP;
  2322.     {$IFC NOT GENERATINGCFM }
  2323.     INLINE $2E9F;
  2324.     {$ENDC}
  2325.  
  2326. FUNCTION CallSCModalFilterProc(theDialog: DialogPtr; VAR theEvent: EventRecord; VAR itemHit: INTEGER; refcon: LONGINT; userRoutine: SCModalFilterUPP): BOOLEAN;
  2327.     {$IFC NOT GENERATINGCFM}
  2328.     INLINE $205F, $4E90;
  2329.     {$ENDC}
  2330.  
  2331. FUNCTION CallSCModalHookProc(theDialog: DialogPtr; itemHit: INTEGER; params: UNIV Ptr; refcon: LONGINT; userRoutine: SCModalHookUPP): INTEGER;
  2332.     {$IFC NOT GENERATINGCFM}
  2333.     INLINE $205F, $4E90;
  2334.     {$ENDC}
  2335.  
  2336. FUNCTION CallTweenerDataProc(VAR tr: TweenRecord; tweenData: UNIV Ptr; tweenDataSize: LONGINT; dataDescriptionSeed: LONGINT; dataDescription: Handle; asyncCompletionProc: ICMCompletionProcRecordPtr; transferProc: ProcPtr; refCon: UNIV Ptr; userRoutine: TweenerDataUPP): ComponentResult;
  2337.     {$IFC NOT GENERATINGCFM}
  2338.     INLINE $205F, $4E90;
  2339.     {$ENDC}
  2340.  
  2341. PROCEDURE CallDataHCompletionProc(request: Ptr; refcon: LONGINT; err: OSErr; userRoutine: DataHCompletionUPP);
  2342.     {$IFC NOT GENERATINGCFM}
  2343.     INLINE $205F, $4E90;
  2344.     {$ENDC}
  2345.  
  2346. PROCEDURE CallVdigIntProc(flags: LONGINT; refcon: LONGINT; userRoutine: VdigIntUPP);
  2347.     {$IFC NOT GENERATINGCFM}
  2348.     INLINE $205F, $4E90;
  2349.     {$ENDC}
  2350.  
  2351. FUNCTION CallSGDataProc(c: SGChannel; p: Ptr; len: LONGINT; VAR offset: LONGINT; chRefCon: LONGINT; time: TimeValue; writeType: INTEGER; refCon: LONGINT; userRoutine: SGDataUPP): OSErr;
  2352.     {$IFC NOT GENERATINGCFM}
  2353.     INLINE $205F, $4E90;
  2354.     {$ENDC}
  2355.  
  2356. FUNCTION CallSGModalFilterProc(theDialog: DialogPtr; VAR theEvent: EventRecord; VAR itemHit: INTEGER; refCon: LONGINT; userRoutine: SGModalFilterUPP): BOOLEAN;
  2357.     {$IFC NOT GENERATINGCFM}
  2358.     INLINE $205F, $4E90;
  2359.     {$ENDC}
  2360.  
  2361. FUNCTION CallSGGrabBottleProc(c: SGChannel; bufferNum: INTEGER; refCon: LONGINT; userRoutine: SGGrabBottleUPP): ComponentResult;
  2362.     {$IFC NOT GENERATINGCFM}
  2363.     INLINE $205F, $4E90;
  2364.     {$ENDC}
  2365.  
  2366. FUNCTION CallSGGrabCompleteBottleProc(c: SGChannel; bufferNum: INTEGER; VAR done: BOOLEAN; refCon: LONGINT; userRoutine: SGGrabCompleteBottleUPP): ComponentResult;
  2367.     {$IFC NOT GENERATINGCFM}
  2368.     INLINE $205F, $4E90;
  2369.     {$ENDC}
  2370.  
  2371. FUNCTION CallSGDisplayBottleProc(c: SGChannel; bufferNum: INTEGER; VAR mp: MatrixRecord; clipRgn: RgnHandle; refCon: LONGINT; userRoutine: SGDisplayBottleUPP): ComponentResult;
  2372.     {$IFC NOT GENERATINGCFM}
  2373.     INLINE $205F, $4E90;
  2374.     {$ENDC}
  2375.  
  2376. FUNCTION CallSGCompressBottleProc(c: SGChannel; bufferNum: INTEGER; refCon: LONGINT; userRoutine: SGCompressBottleUPP): ComponentResult;
  2377.     {$IFC NOT GENERATINGCFM}
  2378.     INLINE $205F, $4E90;
  2379.     {$ENDC}
  2380.  
  2381. FUNCTION CallSGCompressCompleteBottleProc(c: SGChannel; bufferNum: INTEGER; VAR done: BOOLEAN; VAR ci: SGCompressInfo; refCon: LONGINT; userRoutine: SGCompressCompleteBottleUPP): ComponentResult;
  2382.     {$IFC NOT GENERATINGCFM}
  2383.     INLINE $205F, $4E90;
  2384.     {$ENDC}
  2385.  
  2386. FUNCTION CallSGAddFrameBottleProc(c: SGChannel; bufferNum: INTEGER; atTime: TimeValue; scale: TimeScale; {CONST}VAR ci: SGCompressInfo; refCon: LONGINT; userRoutine: SGAddFrameBottleUPP): ComponentResult;
  2387.     {$IFC NOT GENERATINGCFM}
  2388.     INLINE $205F, $4E90;
  2389.     {$ENDC}
  2390.  
  2391. FUNCTION CallSGTransferFrameBottleProc(c: SGChannel; bufferNum: INTEGER; VAR mp: MatrixRecord; clipRgn: RgnHandle; refCon: LONGINT; userRoutine: SGTransferFrameBottleUPP): ComponentResult;
  2392.     {$IFC NOT GENERATINGCFM}
  2393.     INLINE $205F, $4E90;
  2394.     {$ENDC}
  2395.  
  2396. FUNCTION CallSGGrabCompressCompleteBottleProc(c: SGChannel; VAR done: BOOLEAN; VAR ci: SGCompressInfo; VAR t: TimeRecord; refCon: LONGINT; userRoutine: SGGrabCompressCompleteBottleUPP): ComponentResult;
  2397.     {$IFC NOT GENERATINGCFM}
  2398.     INLINE $205F, $4E90;
  2399.     {$ENDC}
  2400.  
  2401. FUNCTION CallSGDisplayCompressBottleProc(c: SGChannel; dataPtr: Ptr; desc: ImageDescriptionHandle; VAR mp: MatrixRecord; clipRgn: RgnHandle; refCon: LONGINT; userRoutine: SGDisplayCompressBottleUPP): ComponentResult;
  2402.     {$IFC NOT GENERATINGCFM}
  2403.     INLINE $205F, $4E90;
  2404.     {$ENDC}
  2405. {$ALIGN RESET}
  2406. {$POP}
  2407.  
  2408. {$SETC UsingIncludes := QuickTimeComponentsIncludes}
  2409.  
  2410. {$ENDC} {__QUICKTIMECOMPONENTS__}
  2411.  
  2412. {$IFC NOT UsingIncludes}
  2413.  END.
  2414. {$ENDC}
  2415.